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B6700/B7700 ESPOL 
PREFACE 


THIS DOCUMENT, WHICH DESCRIBES THE FORMAL STRUCTURE OF THE B6700/ 
B7700 EXECUTIVE SYSTEM PROGRAMMING LANGUAGE (ESPOL), IS INTENDED 
FOR THOSE ALREADY EXPERIENCED WITH ALGOL AND THE SPECIFICATIONS 
OF THE B6700/B7700 INFORMATION PROCESSING SYSTEM. 


THIS DOCUMENT FIRST PRESENTS A REVIEW OF THE '"BACKUS-NAUR FORM." 
NEXT, THE CHARACTER SET, BASIC SYMBOLS, AND THE BASIC AND GENERAL 
COMPONENTS OF THE LANGUAGE ARE DISCUSSED. BEGINNING WITH SECTION 
6, THE SYNTAX OF ESPOL IS EXPLAINED AS FOLLOWS: FIRST, AN ESPOL 
PROGRAM IS DEFINED, FOLLOWED BY DECLARATIONS, STATEMENTS, AND 
FINALLY EXPRESSIONS. IN THIS WAY, THE READER MAY PROGRESS MORE 
EASILY IN HIS UNDERSTANDING OF ESPOL. FURTHERMORE, AS AN AD- 
DITIONAL AID, THE MATERIAL IN MANY CASES, HAS BEEN ARRANGED IN 
ALPHABETICAL SEQUENCE. 


FOUR APPENDICES ARE INCLUDED IN THIS DOCUMENT. THESE APPENDICES 
HAVE BEEN DESIGNED TO FURTHER FACILITATE THE READER'S UNDER- 
STANDING OF THE STRUCTURE AND USE OF THE ESPOL LANGUAGE. 


APPENDIX A IS AN ORDERED LIST OF COMPILER ERROR MESSAGES AND 
ASSOCIATED ESPOL PROCEDURES. 


APPENDIX B CONTAINS EXAMPLES OF MACHINE-LANGUAGE CODE GENERATED 
FOR VARIOUS COMMON CONSTRUCTS. 


APPENDIX C IS A LOGICAL-ORDER LISTING OF THE COMPLETE ESPOL 
LANGUAGE SYNTAX TREE. 


APPENDIX D IS AN ALPHABETICAL INDEX OF BACKUS-NAUR CONSTRUCTS AND 
RESERVED WORDS. THE BACKUS-NAUR CONSTRUCTS ARE PRECEDED BY A 
SYNTAX TREE (APPENDIX C) REFERENCE NUMBER. 
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1. INTRODUCTION 


THE B6700/B7700 EXECUTIVE SYSTEM PROGRAMMING ORIENTED LANGUAGE 
(ESPOL) IS USED PRIMARILY IN WRITING THE 86700/B7700 MASTER CONTROL 
PROGRAM (MCP). 


1.2. ESPOL COMPARED WITH ALGOL 


WHILE IN MANY WAYS ESPOL IS SIMILAR TO ALGOL, ESPOL IS DESIGNED TO 
FACILITATE SUCH FUNCTIONS AS INTERRUPT HANDLING, STORAGE 
ALLOCATION, AND OVERLAY FUNCTIONS PECULIAR TO THE MCP. 


1.3. ESPOL AND THE B86700/87700 


BECAUSE 86700/B7700 ESPOL IS UNIQUELY SUITED TO THE 86700/87700 
INFORMATION PROCESSING SYSTEM, CERTAIN CONSTRUCTS ARE PROVIDED TO 
ALLOW MANIPULATION OF HARDWARE FUNCTIONS. 


1.4. THE METALANGUAGE 


THE SYNTAX OF B6700/B7700 ESPOL IS DESCRIBED BY THE USE OF THE 
BACKUS-NAUR FORM (BNF) METALANGUAGE, WHICH IS A SYSTEM OF 
METALINGUISTIC SYMBOLS AND METALINGUISTIC FORMULAS DISCUSSED BELOW. 


i.4.1. METALINGUISTIC SYMBOLS 


< > LEFT AND RIGHT BROKEN BRACKETS ARE USED TO CONTAIN ONE OR MORE 
CHARACTERS REPRESENTING A METALINGUISTIC VARIABLE WHOSE VALUE 
IS GIVEN BY A METALINGUISTIC FORMULA. 

::= THE SYMBOL “::=" MEANS "IS DEFINED AS", IT SEPARATES THE 


l- 2 
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METALINGUIST!IC VARIABLE ON THE LEFT OF A METALINGUISTIC 
FORMULA FROM THE DEFINITION OF THE METALINGUISTIC VARIABLE. 


/ THE SYMBOL "/"“ MEANS "OR". IT SEPARATES MULTIPLE DEFINITIONS 
OF A METALINGUISTIC VARIABLE. 


és THE SYMBOLS "é" AND "3" ARE USED TO ENCLOSE METALINGUISTIC 
ENGLISH-LANGUAGE EXPRESSIONS. THESE EXPRESSIONS ARE USED ONLY 
WHEN IT IS IMPOSSIBLE OR IMPRACTICAL TO USE A METALINGUISTIC 
FORMULA. 


1.4.2. METALINGUISTIC FORMULAS 


a a — ee wee ee 


A METALINGUISTIC FORMULA IS A RULE WHICH WILL PRODUCE A 
SYNTACTICALLY CORRECT SEQUENCE OF SYMBOLS. IN A METALINGUISTIC 
FORMULA, ANY MARK OR SYMBOL WHICH IS NOT ONE OF THE DEFINED 
METALINGUISTIC SYMBOLS DENOTES ITSELF. THE JUXTAPOSITION OF THE 
METALINGUISTIC SYMBOLS IN A METALINGUISTIC FORMULA DENOTES THE 
JUXTAPOSITION OF THOSE ELEMENTS IN THE CONSTRUCT SO DEFINED. 


EXAMPLE: 


THE METALINGUISTIC FORMULA: 


<IDENTIFTER> ::= <LETTER>D / <IDENTIFIER> <LETTER>D / 
<IDENTIFIER> <DIGIT> 


1S READ AS FOLLOWS: AN IDENTIFIER IS DEFINED AS A LETTER, OR AN 
IDENTIFIER FOLLOWED BY A LETTER, OR AN IDENTIFIER FOLLOWED BY A 
DIGIT. 
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2. CHARACTER SET 


THE CHARACTER SET FOR WHICH ESPOL IS DEFINED IS A SUBSET OF 
BURROUGHS COMMON LANGUAGE (BCL) CHARACTER SET. 


SYNTAX: 

<CHARACTER> ::= <STRING CHARACTER> / <STRING BRACKET CHARACTER> 
<INVALID CHARACTER> 

<STRING CHARACTER> 23= <LETTER> / <DIGIT> / <SPECIAL CHARACTER> 
<SINGLE SPACE> 

REITER? 22 AB. £C dB PCR FOP 8G? ae DP Sp a 
L/M/NvyoQosPY/YQAYRAAS To Zo PONE PONE of RP NG OZ 

SOIGIT>? 245 6.7 17-2 £3 FS So BS OF FB PS 

<SPECIAL CHARACTER>D ::= 4, f/f FE 41 ¢ € £4 +t fF = ¢ £SLASHD 
> 4&4 o¢uthersttresksues espe fae sf ys ¢ 

<SLASH> ::= / 

<SINGLE SPACE> ::= ONE HORIZONTAL BLANK POSITIONS 

<STRING BRACKET CHARACTER> ::= <QUOTE> 

<QUOTE> ::= " 

<INVALID CHARACTER> ::= ? 

SEMANTICS: 


THE INVALID CHARACTER IS EXCLUDED EXCEPT AS A CHARACTER WHICH 
BE PROGRAMMATICALLY PRODUCED. 


THE 


MAY 
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IN GENERAL, SYMBOLS ARE MADE UP FROM A CONTIGUOUS SET OF CHARACTERS 
THE BASIC SYMBOLS OF ESPOL ARE THOSE SYMBOLS WHICH ARE WELL-DEFINED 
WITHIN THE CONTEXT OF THAT LANGUAGE. 


SYNTAX: 

<BASIC SYMBOL> ::= <EMPTY> / <CHARACTER> / <DELIMITERD / 
<LOGICAL VALUE> 

<EMPTY> ::= £THE NULL STRING OF CHARACTERSS 

<DELIMITER> ::= <BRACKET> / <DECLARATOR> / <OPERATOR>D / 
<SEPARATOR> / <SPECIFICATOR> 

<BRACKET> ::= € / } / — 4 J] 4 " / BEGIN / END s # 

<DECLARATOR> ::= ARRAY / BOOLEAN / DEFINE / DOUBLE / EVENT / 


FIELD / FORWARD / INTEGER / LABEL / LAYOUT / 
MONITOR / ON / OWN / PICTURE / POINTER / PROCEDURE / 
QUEUE / REAL / REFERENCE / SAVE / USING / WORD 

<OPERATOR> ::= <ARITHMETIC OPERATOR> / <CONCATENATE OPERATOR> / 
<LOGICAL OPERATOR> / <RELATIONAL OPERATOR> / 
«REPLACEMENT OPERATOR> / <SEQUENTIAL OPERATOR> 


<ARITHMETIC OPERATOR> ::= + / ~= / * / <SLASH> / DIV / MOD / MUX 

<CONCATENATE OPERATOR> ::= & 

<LOGICAL OPERATOR> ::= AND / EQV / IMP / NOT / OR 

RELATIONAL OPERATOR> ::= > / 2/2=¢ SN / 6 / # STS 

<REPLACEMENT OPERATOR> ::= + / := / © * / 3 = 

«SEQUENTIAL OPERATOR> ::= CASE / DO / ELSE / FOR / GO / IF /¢ THEN / 
TO 

<SEPARATOR> ::= , / . 4 @®@ / : 4 3; ¢ <SPACE> / BY / COMMENT / IN / 
NULL / OF / STEP / UNTIL / WHILE / WITH 

<SPECIFICATOR> ::= VALUE 

<LOGICAL VALUE> ::= TRUE / FALSE 


SEMANTICS: 


B6700/B7700 ESPOL 


INDIVIDUAL LETTERS DO NOT HAVE INDIVIDUAL MEANINGS EXCEPT IN 
THE CONTEXT IN WHICH THEY ARE USED (AS DEFINED IN THE SYNTAX 


OF THE LANGUAGE). 


A SPACE MUST SEPARATE ANY TWO OF THE FOLLOWING: 


MULTICHARACTER DELIMITER (EXCEPT +*,:=* AND :=) 
LOGICAL VALUE 

IDENTIFIER 

UNSIGNED NUMBER 


FOR CERTAIN CASES THE REPLACEMENT OPERATOR :=* MAY BE USED TO 
UPDATE VARIABLES; FOR EXAMPLE, THE STATEMENT "“W:=W+1;" COULD 
ALSO BE WRITTEN “W:=*+1;" (OR OPTIONALLY, THE OPERATOR <-* 


COULD BE USED; E.G., "“We*¥tl  "). 
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4. BASIC COMPONENTS 


4.1. GENERAL 


BASIC COMPONENTS ARE THE MOST PRIMITIVE CONSTRUCTS OF THE LANGUAGE. 


SYNTAX: 


<BASIC COMPONENT> ::= <BASIC SYMBOL> / <IDENTIFIERD / 
<NUMBER>D / <STRING> 
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4.2. IDENTIFIERS 


<IDENTIFIER> ::= <LETTER> / <IDENTIFIER> <LETTER> / 
<IDENTIFIER> <DIGIT> 


SEMANTICS: 


1. IDENTIFIERS HAVE NO ABSOLUTE MEANING. IDENTIFIERS ARE USED TO 
NAME LABELS, VARIABLES, ARRAYS, PROCEDURES, ETC. 


2. A RESERVED WORD MAY NOT BE USED AS AN IDENTIFIER. 


3. THE MAXIMUM PERMISSIBLE LENGTH OF AN IDENTIFIER 1S 63 
CHARACTERS, AND IT MUST CONTAIN NO SPECIAL CHARACTERS. 


4. NO SPACE MAY APPEAR WITHIN AN IDENTIFIER. 
EXAMPLES: 

xX 

AS 

G76D3 


NOTHINGTODO 
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4.3. NUMBERS 


SYNTAX: 

<NUMBER> ::= <SIGN> <UNSIGNED NUMBERD> 

<SIGN> ::= <EMPTY> / + / - 

<UNSIGNED NUMBER> ::= <DECIMAL NUMBER> <EXPONENT PART> / 

<DECIMAL NUMBER> / <OCTAL NUMBER> 
<DECIMAL NUMBER>D ::= <UNSIGNED INTEGER> <DECIMAL FRACTION> / 
<UNSIGNED INTEGER> / <DECIMAL FRACTION> / <UNSIGNED INTEGER>. 
<UNSIGNED INTEGER> ::= <DIGIT> / <UNSIGNED INTEGER> <DIGIT> 
<EXPONENT PART> ::= @ CINTEGER> / @@ <INTEGERD 

<INTEGER> ::= <SIGN> <UNSIGNED INTEGER> 

<DECIMAL FRACTION> ::= . <UNSIGNED INTEGER> 

<OCTAL NUMBER> ::= @ <OCTAL CONSTANT> 

<OCTAL CONSTANT> ::= <OCTAL DIGIT> / <OCTAL CONSTANT> 

<OCTAL DIGIT> 

<OCTAL DIGIT> ::= 0/7 1/2@/ 3/4 / 5 / BCs 7 

SEMANTICS: 

1. NUMBERS MAY BE INTEGER OR REAL: INTEGERS ARE OF TYPE “INTEGER" 
ALL OTHER NUMBERS. ARE OF TYPE "REAL" (EITHER EXPLICITLY OR 
IMPLICITLY -- BY DEFAULT). 

Cu AN INTEGER IS A SINGLE-PRECISION OPERAND WITH AN EXPONENT OF 
ZERO. 

3. NUMBERS MAY BE NEGATIVE (-) OR POSITIVE (+). 

4, THE SMALLEST AND LARGEST NUMBERS REPRESENTABLE IN INTEGER, 


REAL, AND DOUBLE PRECISION ARE: 


A. SMALLEST SINGLE PRECISION INTEGER: 
= 1. 
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= 3"0000000000000001" 


B. LARGEST SINGLE PRECISION INTEGER: 
= 549755813887. 
= 3"0007777777777777" 
= 6*13 - 1 

om SMALLEST SINGLE PRECISION REAL: 


1.27447352891e-57 
3"°1770000000000001" 


D. LARGEST SINGLE PRECISION REAL: 
4.31359146674668 
ZS"O777777777777777" 

= (8*13 - 1) x 8*63 


Bz SMALLEST DOUBLE PRECISION INTEGER: 
= 1, 
DOUBLE(3"0i150000000000000", 3”"0000000000000001") 


it 


Beg LARGEST DOUBLE PRECISION INTEGER: 
30223145490S657293676543. 

DOUBLE (3"0157777777777777" , S3"0007777777777777" ) 
B*eo.= 1 


G. SMALLEST DOUBLE PRECISION REAL: 

= 1,0e6-29603 
DOUBLE(3"1770000000000000", 3"7770000000000001") 
1.0 x 8*-32767 


H. LARGEST DOUBLE PRECISION REAL: 
1.948828382050280791ic44+E9See9603 

DOUBLE C3"O777777777777777" , S" 777777777 7777777" ) 
(8*26 - 1) x 8*32767 


"l 


THE EXPONENT PART IS A SCALE FACTOR EXPRESSED AS IN INTEGRAL 
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POWER OF 10. 
6. NO SPACE MAY APPEAR WITHIN AN UNSIGNED NUMBER. 


7. AN EXPONENT PART WITH A DOUBLE "AT" SIGN “@@" SIGNIFIES AN 
EXTENDED PRECISION VALUE. 


8. AN OCTAL NUMBER MAY HAVE NO MORE THAN 16 OCTAL DIGITS. 


EXAMPLES: 


1354 .543 
67 

1354 .54@68 
27 

1@-43 


DECIMAL NUMBERS 


were eee eee eee 


UNSIGNED INTEGERS 
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69 


EXPONENT PARTS 
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4.4. STRINGS 


SYNTAX: 
<STRING> ::= <SIMPLE STRING> / <STRING> <SIMPLE STRING> 
<SIMPLE STRING> ::= <NUMERIC STRING> / <ALPHA STRING> 


<NUMERIC STRING> ::= 
<BINARY CODE> <QUOTE> <BINARY STRING> <QUOTE> / 
<QUATERNARY CODE> <QUOTE> <QUATERNARY STRING) <QUOTE> / 
<OCTAL CODE> <QUOTE> <OCTAL STRING> <QUOTE> / 
<HEXADECIMAL CODE> <QUOTE> <HEXADECIMAL STRING) <QUOTE> 


<BINARY CODE> ::= 1 / 10 / 12 / 13 / 14% / 168/17 s 18 / 
1e0 / 130 / 140 / 160 / 170 / 180 
<BINARY STRING> ::= <BINARY CHARACTER> / <BINARY STRING> 
<BINARY CHARACTER> 
<BINARY CHARACTER> ::= 0 / 1 
<QUATERNARY CODE> ::= 2 / 20 / e4 / 26 / 28 / 240 / 260 / 280 
<QUATERNARY STRING> ::= <QUATERNARY CHARACTER> / 
<QUATERNARY STRING> <QUATERNARY CHARACTERD 
<QUATERNARY CHARACTER> ::= 0 / 1/27 3 
<OCTAL CODE> ::= 3 / 30 / 36 / 360 
<OCTAL STRING> ::= <OCTAL CHARACTER> / 
<OCTAL STRING> <OCTAL CHARACTER> 
<OCTAL CHARACTER> ::= O/ 1 /2@/ 3¢ 4s 5/7 67/7 
<HEXADECIMAL CODE> ::= 4 7 40Q 
<HEXADECIMAL STRING> ::= <HEXADECIMAL CHARACTERD / 
<HEXADECIMAL STRING> <HEXADECIMAL CHARACTER> 
<HEXADECIMAL CHARACTER> ::= O / 1/27 3B/ 4 5/6/7/87/9 ¢ 
(ae Maan = ae ae Oy am 8 SY Qa Sr | 
<ALPHA STRING> ::= <BCL CODE> <QUOTE> <BCL STRING> <QUOTE> / 


<ASCII CODE> <QUOTE> <ASCII STRING> <QUOTED / 
<EBCDIC CODE> <QUOTE> <EBCDIC STRING> <QUOTE> 
<BCL CODE> ::= <EMPTY> / 6 ¢ 60 
<BCL STRING> ::= <QUOTE> / <BCL CHARACTERD / 
<BCL STRING> <BCL CHARACTER> 
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<BCL CHARACTER> ::= <STRING CHARACTER> 

<ASCII CODE> ::= 7 / 70 

<ASCII STRING> ::= <BCL STRING> 

<EBCDIC CODE> ::= 8 / 80 

<EBCDIC STRING> ::= <BCL STRING> 

SEMANTICS: 

1. STRINGS MAY CONSIST OF THE FOLLOWING: 
ONE-BIT CHARACTERS (BINARY) 
TWO-BIT CHARACTERS (QUATERNARY ) 
THREE-BIT CHARACTERS (OCTAL) 
FOUR-BIT CHARACTERS (HEXADECIMAL) 
SIX-BIT CHARACTERS (BCL) 


SEVEN-BIT CHARACTERS 
EIGHT-BIT CHARACTERS 


e. THE STRING CODE DETERMINES 


(ASCII, IN EIGHT-BIT FORMAT) 
(EBCDIC) 


THE INTERPRETATION OF - THE 


CHARACTERS BETWEEN THE QUOTES. IT SPECIFIES THE CHARACTER SET 
AND, IF THE STRING HAS FEWER THAN 48 BITS, THE JUSTIFICATION 


OF THE STRING WITHIN 
FIRST DIGIT SPECIFIES 


STRING IS WRITTEN. 


CHARACTER SIZE OF THE 


IF NO SECOND SIZE 


WORD WHICH WILL CONTAIN IT. THE 


THE CHARACTER SET IN WHICH THE SOURCE 
NEXT NONZERO DIGIT SPECIFIES THE 
INTERNAL STRING CREATED BY THE COMPILER. 
IS SPECIFIED, IT WILL BE THE SAME AS THE 


INITIAL SIZE. A TRAILING ZERO INDICATES THAT THE STRING IS TO 
BE LEFT-JUSTIFIED WITHIN A WORD (IF THE STRING CONTAINS FEWER 


THAN 48 BITS); IF NO ZERO 


JUSTIFIED. 


3. AN EMPTY STRING CODE 
JUSTIFIED BCL STRING). 


IS PRESENT, THE STRING WILL BE RIGHT 


TREATED AS A CODE OF 6 (RIGHT- 


4. AN ASCII CODE OR EBCDIC CODE MAY BE USED ONLY WITH CHARACTERS 


FROM THE BCL CHARACTER SET. 


THE COMPILER PRODUCES INTERNALLY 
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A STRING OF EIGHT-BIT CHARACTERS WHICH REPRESENT THE SAME 
GRAPHICS AS THE GIVEN BCL CHARACTERS. FOR CHARACTERS WHICH 
ARE NOT IN THE BCL CHARACTER SET, THE STRING MUST BE WRITTEN 
AS A  HEXADECIMAL STRING, WHERE EACH PAIR OF HEXADECIMAL 
CHARACTERS REPRESENTS THE INTERNAL CODE OF ONE ASCII OR EBCDIC 
CHARACTER. 


THE QUOTE CHARACTER MAY APPEAR ONLY AT THE BEGINNING OF A 
SIMPLE STRING. STRINGS WITH INTERNAL QUOTES MUST BE BROKEN 
INTO SEPARATE SIMPLE STRINGS BY THE USE OF THREE QUOTES IN 
SUCCESSION. THE LAST TWO QUOTES MUST BE CONTIGUOUS. 


THE MAXIMUM PERMISSIBLE LENGTH OF A STRING DEPENDS UPON THE 
CONTEXT IN WHICH THE STRING IS USED. POINTER OPERATIONS 
(REPLACE AND STRING COMPARE) AND LIST ELEMENTS WHICH CONSIST 
OF ONLY A STRING MAY BE REPRESENTED BY STRINGS UP TO 256 48- 
BIT WORDS IN LENGTH. STRINGS USED AS OPERANDS IN EXPRESSIONS 
ARE LIMITED TO A LENGTH OF 48 BITS. 


WHEN A STRING IS FORMED FROM SIMPLE STRINGS OF DIFFERENT 
CHARACTER SIZES, THE FOLLOWING APPLIES: 


A. THE JUSTIFICATION SPECIFIED BY EACH STRING CODE 
AFTER THE FIRST IS IGNORED. 


B. EVERY CHARACTER IN A STRING IS ALIGNED AT A 
CHARACTER BOUNDARY APPROPRIATE FOR THE SIZE OF THAT 
CHARACTER. THIS MAY RESULT IN ZERO BITS BEING 
INSERTE BETWEEN SIMPLE STRINGS. FOR EXAMPLE, 6"8" 
4"8" PRODUCES 00100000010000. NOTE THAT TWO BITS 
ARE INSERTED BETWEEN THE SIMPLE STRINGS SO THAT THE 
4"8" FALLS ON <A FOUR-BIT CHARACTER BOUNDARY. 
HOWEVER, 8"8" 4"8" REQUIRES NO SUCH ALIGNMENT. 


Cc. WHEN IT IS NECESSARY FOR THE COMPILER TO KNOW THE 
"LENGTH" IN CHARACTERS OF A STRING AND THE CHARACTER 
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SIZE (E.G., REPLACE AND STRING COMPARE), #£4THE 
CHARACTER SIZE IS THE MAXIMUM CHARACTER SIZE OF ALL 
THE SIMPLE STRINGS; THE LENGTH IS THE SMALLEST 
NUMBER OF CHARACTERS (OF THE MAXIMUM CHARACTER SIZE) 
REQUIRED TO CONTAIN ALL THE BITS OF THE STRING. 


86700/87700 ESPOL 


ee em we we ree ew ew ee 


GENERAL COMPONENTS DIFFER FROM BASIC COMPONENTS IN THAT GENERAL 
COMPONENTS ARE USUALLY SUBSCRIPTED, OR HAVE ASSOCIATED PARAMETERS. 


SYNTAX: 


<GENERAL COMPONENT> ::= <BASIC COMPONENT> / <VARIABLED / 
<ITEM DESIGNATOR> / <VALUE DESIGNATOR> / 
EVENT DESIGNATOR> / <INTRINSIC> 


SEMANTICS: 


THE RELATIONSHIP BETWEEN GENERAL COMPONENTS’ AND EXPRESSIONS IS 


RECURSIVE. EXPRESSIONS ARE COMPOSED OF GENERAL COMPONENTS AND 
CONVERSELY GENERAL COMPONENTS MAY BE COMPOSED IN’ PART OF 

EXPRESSIONS. IN THE SIMPLEST CASE A <GENERAL COMPONENT> IS 
COMPOSED OF A <BASIC COMPONENT>; £.G., A <SIMPLE VARIABLE Is 


DEFINED TO BE AN <IDENTIFIER>. 
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VARIABLES 
SYNTAX: 
<VARIABLE> ::= <SIMPLE VARIABLE> / <SUBSCRIPTED VARIABLE> 
<SIMPLE VARIABLE> ::= <IDENTIFIER> 
<SUBSCRIPTED VARIABLE> ::= “ARRAY IDENTIFIER> ( <SUBSCRIPT LIST> ] 
<ARRAY IDENTIFIER> ::= <IDENTIFIER> / <ARRAY INTRINSIC) 
' <SUBSCRIPT LIST> ::= <SUBSCRIPT> / <SUBSCRIPT LIST> , <SUBSCRIPT> 
<SUBSCRIPT> ::= <ARITHMETIC EXPRESSION> 
SEMANTICS: 


A SUBSCRIPTED VARIABLE IS AN ARRAY IDENTIFIER WITH A SUBSCRIPT 
LIST. THE ARRAY IDENTIFIER REFERS TO A SET OF VALUES. AN 
ARRAY IDENTIFIER WITH A SUBSCRIPT LIST REFERS TO A SINGLE 
VALUE OR A SUBSET OF VALUES. 


THE TOTAL NUMBER OF SUBSCRIPTS IN A SUBSCRIPT LIST MUST EQUAL 
THE NUMBER OF DIMENSIONS GIVEN IN THE ARRAY DECLARATION. 


EACH SUBSCRIPT EXPRESSION IN A SUBSCRIPT LIST IS EVALUATED 
FROM LEFT TO RIGHT. 


IF, UPON EVALUATION, A SUBSCRIPT EXPRESSION YIELDS A VALUE OF 
TYPE REAL, IT WILL BE ROUNDED AS FOLLOWS: 


INTEGRAL SUBSCRIPT VALUE = ENTIER (VALUE OF SUBSCRIPT 
EXPRESSION + 0.5) 


IF THE VALUE OF A SUBSCRIPT FALLS OUTSIDE THE BOUNDS DECLARED 
FOR THAT DIMENSION, THERE WILL BE AN “INVALID INDEX" ERROR AND 
TERMINATION OF THE PROCESS. 


EXAMPLES: 
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SIMPLE VARIABLES: 


ABSOLUTE 
ABS2 


SUBSCRIPTED VARIABLES: 


A[T5] 

QTYfQ+7,VXN,Z] 

Q(7,2] 

ALITH] 

KRONECKER[ ITH+2,JTH-ITH] 

MAXQ [ IF BETA = 30 THEN -2 ELSE K+ @2 } 


B6700/87700 ESPOL 


5.3. ITEM DESIGNATORS 


SYNTAX: 

<1TEM DESIGNATOR> ::= <ARITHMETIC ITEM> / <WORD ITEM) 
ARITHMETIC ITEM> ::= <ITEM> 

<WORD ITEM> ::= <ITEM> 

<ITEM> ::= <ITEM IDENTIFIERD @ <REFERENCE EXPRESSION> 
<ITEM IDENTIFIER>D ::= CIDENTIFIER> / <ITEM> 
SEMANTICS: 


ITEMS ARE USED WHEN IT IS NECESSARY TO HAVE MORE THAN ONE TYPE OF 
VARIABLE IN A QUEUE ELEMENT, IN PARTICULAR, ITEMS MAY BE TREATED AS 
CALL-BY-NAME VARIABLES. IN GENERAL, <ITEM IDENTIFIER>S ARE 
PROVIDED TO REFERENCE PARAMETERS IN A QUEUE STRUCTURE. THE <ITEM 
IDENTIFIER> MAY ALSO BE USED AS AN INDEX TO AUTOMATICALLY PROVIDE 
THE ORDINAL NUMBER OF A QUEUE ELEMENT CORRESPONDING TO THE 
INDICATED ITEM. 


EXAMPLES: 


FIRSTGO @ WAITCHANELQUE[ CHANELNUMBER ] 
FAOWST@ (REFERENCE (AL2,11)) 
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SYNTAX: 

<VALUE DESIGNATOR> ::= <VALUE ARRAY IDENTIFIER> [{<SU8SCRIPT LIST)>] 
<VALUE ARRAY IDENTIFIER> ::= <IDENTIFIERD 

SEMANTICS: 


A VALUE DESIGNATOR REFERENCES A PARTICULAR ELEMENT OF A VALUE ARRAY 
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5.5. EVENT DESIGNATORS 


<EVENT DESIGNATOR> ::= ¢EVENT IDENTIFIER> / “EVENT ITEM> / 
<EVENT ARRAY IDENTIFIER> [<SUBSCRIPT LIST>1 / 
<EVENT ARRAY ITEM> [<SUBSCRIPT LIST? ] 


<EVENT ITEM> ::= <ITEM> 

<EVENT ARRAY ITEM> ::= <ITEM> 

SEMANTICS: 

1. AN EVENT DESIGNATOR DESIGNATES AN EVENT QUANTITY. 

2. THE ITEM IDENTIFIER OF AN ITEM USED AS AN EVENT ITEM MUST BE 


DECLARED AS AN EVENT. 


3. THE ITEM IDENTIFIER OF AN ITEM USED AS AN EVENT ARRAY ITEM 
MUST APPEAR IN A DECLARATION STATEMENT DECLARING IT AS AN 
EVENT ARRAY. 


EXAMPLES: 


El 
ZEUS [2,3] 
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5.6. INTRINSICS 


SYNTAX: 

<INTRINSIC> ::= <ARRAY INTRINSIC> / <FUNCTION INTRINSICD / 
<PROCEDURE INTRINSIC> / <WORD INTRINSICD 

<ARRAY INTRINSIC> ::= M / MEMORY / REGISTERS / STACK / 
STACKVECTOR / WORDSTACK 

<FUNCTION INTRINSIC> ::= <ARITHMETIC INTRINSICD / 
<BOOLEAN INTRINSIC) 

<ARITHMETIC INTRINSIC> ::= ABS / BOOLEAN / DABS / DECIMAL / 


DINTEGER / DMAX / DMIN / DNABS / DOUBLE / DSCALELEFT / 
DUPLICATE / ENTIER / EVAL / EXCHANGE / FIRSTONE / 

FIRSTWORD / INTEGER / LISTLOOKUP / MASKSEARCH / MAX / MIN / 
MYSELF / NABS / NAME / NORMALIZE / OCRX / ONES / REAL / 
SCALELEFT / SCALERIGHT / SCALERIGHTF / SCALERIGHTT / 

SCANIN / SECONDWORD / SIZE / STUFF / XSIGN 


<BOOLEAN INTRINSIC> ::= AVAILABLE / BUSY / HAPPENED / 
OVERFLOW / TOGGLE / UNLOCK 
<PROCEDURE INTRINSIC> ::= ALLOW / BUZZ / DISALLOW / 


EXIT / HEYOU / IIO / 

MOVESTACK / PAUSE / RETURN / SCANOUT / 

STOP / STOREITEM / TIMER / TOUCH / ZAP 
<WORD INTRINSIC> ::= TOPOFSTACK 


SEMANTICS: 


AN "INTRINSIC" IS DEFINED TO BE SOMETHING WHICH THE COMPILER 
ALREADY UNDERSTANDS; I.E., IT NEED NOT BE "DECLARED". THE PURPOSE 
OF AN INTRINSIC IS TO PROVIDE THE PROGRAMMER WITH FACILITIES SUCH 
THAT HE DOES NOT HAVE TO DO THE DETAIL CODING. 


IN MANY CASES, THE FOLLOWING INTRINSICS NOT ONLY PERFORM A CERTAIN 
ACTION, BUT THEY RETURN SOMETHING TO THE TOP OF THE STACK. THE 
ESPOL COMPILER GENERATES A "DELETE" OPERATION IF IT SEES THE 
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INTRINSIC USED AS A PROCEDURE RATHER THAN AS A FUNCTION. 


ARRAY INTRINSICS 


MEN] 
MEMORY [N] 


REGISTERSIN] 


STACK[IX,Y] 


STACKVECTORIN] 


WORDSTACKIX,Y] 


ARITHMETIC INTRINSICS 


ABS(AE) BRST 


BOOLEAN(CAE) 


RESULT 


THESE ARE EQUIVALENT. THEY ARE 
ONE-DIMENSIONAL WORD ARRAYS REFERENC 
MEMORY. 


THIS IS A ONE DIMENSIONAL ARRAY 
WHICH REFERENCES THE VARIOUS 
MACHINE REGISTERS. 


THIS IS TWO-DIMENSIONAL REAL ARRAY, 
WHERE X GIVES THE STACK NUMER AND 
Y THE WORD NUMBER. 


THIS IS A ONE-DIMENSIONAL WORD ARRAY 
REFERRING TO A PARTICULAR ROW 
OF A STACK. 


THIS IS EQUIVALENT TO STACK 
EXCEPT THAT IT IS A WORD ARRAY. 


RESULT 


RETURNS ABSOLUTE VALUE OF AE. 


RETURNS THE VALUE OF AE AS A 
BOOLEAN. IF AE 1S DOUBLE THEN 
AE WILL BE TRUNCATED FIRST. 


DABS (DAE) 


DECIMAL (N) 


DINTEGER(AE) 


DMAX(A1,...,AN) 
DMINCA1,...AN) 
DNABS (DAE) 


DOUBLE(PE,AE) 


DOUBLE(R1,R2) 


DOUBLE (RE) 


S- 9 
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BRST 


SCRF 


NTGO 


BSET 


ICVD 
XTND 


JOIN 


XTND 


RETURNS THE ABSOLUTE VALUE OF THE 
DOUBLE DAE. 


"OUTPUT CONVERT" THE BINARY 
REPRESENTATION OF 

N TO DECIMAL REPRESENTATION. 

IF N IS A POINTER THE CHARACTER 
SIZE IS DETERMINED BY THE COMPILER. 
IF N IS AN OPERAND IT IS TREATED AS 
AN EIGHT BIT/CHARACTER (CEBCDIC) 
STRING. 


CONVERTS AE INTO A DOUBLE-PRECISION 
INTEGER. 


RETURNS THE MAXIMUM OF THE 
VALUES Al,...,AN. 


RETURNS THE MINIMUM OF THE VALUES 
Al,...,AN. 


RETURN THE NEGATIVE ABSOLUTE VALUE 
OF THE DOUBLE DAE. 


SAME AS INTEGER(PE,AE) EXCEPT THAT 
THE MAXIMUM VALUE OF AE IS 24 AND 
THE CHARACTERS .IN THE STRING 
REFERENCED BY THE POINTER MUST BE LE 
THAN 8*26-1 = 3022314549036572936765 


RETURNS THE DOUBLE VALUE WITH THE 
FIRST PART EQUAL TO R1 AND THE 
SECOND PART EQUAL TO Re. 


RETURNS THE DOUBLE VALUE EQUAL 
TO THE SINGLE RE. 


DSCALELEFT(V,F) 


DUPLICATE 


ENTIER(N) 


EVAL(X) 


EXCHANGE (CV) 


-FIRSTONE (N) 


FIRSTWORD(EVNT) 
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SCLF 
(DSLF ) 


DUPL 


EVAL 


EXCH 


LOGe 


RETURNS THE DOUBLE INTEGER VALUE OF 
DOUBLE ARITHMETIC-VARIABLE V MULTIPL 
BY 10 RAISED TO THE F POWER. THE 
OPERATOR EMPLOYED IS SCLF IF F IS AN 
INTEGER CONSTANT; DSLF IS USED IF F 
IS AN INTEGER VARIABLE. 


ANYWHERE A <PRIMARY> IS 

ALLOWED, THIS INTRINSIC MAY BE USED. 
IT SIMPLY DUPLICATES THE TOP WORD 
OF THE STACK, THEREBY ADDING ANOTHER 
WORD TO THE TOP OF THE STACK. 


ROUNDS THE ABSOLUTE VALUE OF N 
DOWN TO AN INTEGER. RETURN THE 
RESULT WITH THE PROPER SIGN. 


LEAVES IN THE TOP OF THE STACK AN 
INDEXED DATA DESCRIPTOR OR STUFFED 
INDIRECT REFERENCE WORD WHICH POINTS 
TO THE LOCATION IN MEMORY OF THE 
ARITHMETIC TYPE VARIABLE X. 


FIRST THE VARIABLE V 1S 

BROUGHT TO THE TOP OF THE STACK. 
THEN THE TWO TOP WORDS OF THE 
STACK ARE EXCHANGED. 


RETURNS BIT NUMBER (PLUS 1) 

OF FIRST NONZERO BIT 

IN N. FIRSTONE RETURNS 

ZERO IF THERE ARE NO NONZERO BITS. 


RETURNS THE HIGH-GRDER WORD OF 
EVNT WITH A SINGLE-PRECISION 
TAG. EVNT MAY BE AN EVENT, 


FiRSTWORD(D,V) 


INTEGER(CAE ) 


INTEGER (PE,AE) 


LISTLOOQKUP 
(AE,AR,AE) 


MASKSEARCH 
(AE,AE,AR) 
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NTGR 


UABD 


IcvD 


LLLU 


SRCH 


EVENT ARRAY OR DOUBLE-PRECISION 
OPERAND. 


THE SINGLE-PRECISION VALUE RETURNED 
WILL BE THE FIRST-WORD OF THE 
DOUBLE D, AND THE SECOND-WORD OF D 
WILL BE STORED IN VARIABLE V. 


ROUNDS AE. 
1.243 ENTTERTAE + 02595 


"INPUT CONVERTS" AND 

RETURNS, AS AN INTEGER, TE 

DECIMAL VALUE OF AE CHARACTERS, 
STARTING WITH THE CHARACTER POINTED 
AT BY POINTER EXPRESSION PE. 


RETURNS AN INTEGER VALUE. IT 
IS USED AS FOLLOWS: 


IT := LISTLOOKUP (X,A,N) 


WHERE X IS THE ARGUMENT, A IS A ONE- 
DIMENSIONAL ARRAY IDENTIFIER OR ARRA 
ROW, AND N IS AN INDEX INTO THAT ARR 


RETURNS AN INTEGER VALUE. ITS 
USED AS FOLLOWS: 


I := MASKSEARCH (X,M,A) 


WHERE X IS THE WORD TO LOOK FOR, M 
IS THE MASK VALUE, AND A IS A 
ONE-DIMENSIONAL ARRAY IDENTIFIER, 

AN ARRAY ROW, OR A FULLY SUBSCRIPTED 
VARIABLE. 


MAX(AI1,...AN) 
MINCAIL,...,AN) 
MYSELF 

NABS (AE) 

NAME (VAR) 


NORMALIZE CAE) 
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WHO! 


BSET 


NAME 


SNGL 


THE OPERATOR BEGINS AT THE LAST 

WORD OF THE ARRAY IF A IS NOT 
INDEXED (ARRAY ID OR ARRAY ROW CASE) 
OR AT THE SPECIFIED WORD. IT 
PERFORMS A LOGICAL "AND" OPERATION 
WITH THE MASK AND THEN 

COMPARES THE RESULT WITH THE VALUE O 
IF EQUAL, THE INDEX IS THE RESULT. 
IF NOT, THE OPERATOR REPEATS 

THE SAME FUNCTION ON EACH WORD 
WORKING TOWARD THE FIRST 

WORD OF THE ARRAY. IF NO MASKED 
VALUE MATCHES THE VALUE OF X, THE 
RESULT IS -1. NOTE: THE OPERATOR 
IS DESIGNED FOR ARRAYS WHOSE LOWER 
BOUNDS ARE 0. THE INDEX RETURNED IS 
ALWAYS IN THE RANGE O THROUGH N-1, 
WHERE THE ROW CONTAINS N ELEMENTS. 


RETURNS THE MAXIMUM OF THE VALUES 
Al,...AN. 


RETURNS THE MINIMUM OF THE 
VALUES Al,...,AN. 


THE NUMBER OF THE PROCESSOR WHICH 
IS RUNNING. 


RETURN NEGATIVE ABSOLUTE VALUE OF AE 


RETURNS THE ADDRESS-COUPLE OF THE 
VARIABLE VAR. 


AE IS CHANGED TO A ROUNDED 
NORMALIZED, SINGLE-PRECISION 
OPERAND. NOTE THAT THIS TAKES PLACE 


OCRX(C INDEX ,OCW) 


ONES (ON) 


REAL (BE) 


REAL (DBL ) 


REAL C(PE,AE) 


SCALELEFT(V,F) 


SCALERIGHT(V,F) 
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OCRX 


CBON 


SNGL 


SISO 


SCLF 
(DSLF) 


SCRR 
(DSRR) 


THE TOP OF THE STACK AND MEMORY 
1S NOT ALTERED. 


THE OCRX OPERATOR LEAVES THE VALUE 
OF (OCW OFFSET+ (OCW LENGTH 
<PINDEX 0115 TNC THE T0R 20F 

THE STACK. 


RETURNS NUMBER OF NONZERO 
BITS IN N. 


RETURNS THE REAL VALUE REPRESENTED B 
THE BOOLEAN EXPRESSION BE. ALL BITS 
OF BE ARE USED. 


RETURNS THE DOUBLE EXPRESSION DBL 
NORMALIZED AND ROUNDED TO A 
SINGLE-PRECISION ITEM 


RETURNS, AS A REAL VALUE, A BIT IMAG 
OF THE STRING OF AE CHARACTERS START 
WITH THE CHARACTER INDICATED BY THE 
POINTER EXPRESSION PE. ALL BITS OF 
CHARACTER ARE USED. 


RETURNS THE INTEGER VALUE OF THE 
ARITHMETIC TYPE VARIABLE MULTIPLIED 
BY 10 RAISED TO THE F POWER. THE 
OPERATOR EMPLOYED IS SCLF IF F IS 

AN INTEGER CONSTANT; DSLF IS USED IF 
F IS AN INTEGER VARIABLE. 


RETURNS THE ROUNDED INTEGER VALUE 

OF THE ARITHMETIC TYPE VARIABLE 
DIVIDED BY 10 RAISED TO THE F POWER. 
THE OPERATOR EMPLOYED IS SCRR IF F 


5- 14 
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SCALERIGHTF(V,F) SCRD 
(DSRF ) 

SCALERIGHTT(V,F) SCRF 
(DSRF ) 

SCANIN(N) SCNI 


SECONDWORD (EVNT) 


SIZE(Q) 


STUFF (X) NAMC 
STFF 


IS AN INTEGER CONSTANT; DSRR IS USED 
IF F IS AN INTEGER VARIABLE. 


RETURNS THE REAL REMAINDER OF THE 
ARITHMETIC-TYPE VARIABLE V DIVIDED 
BY 10 RAISED TO THE F POWER. THE 
NUMBER OF SIGNIFICANT DIGITS RE- 
TURNED IS F. THE OPERATOR EMPLOYED 
IS SCRF IF F IS AN INTEGER CONSTANT; 
DSRF IS USED IF F IS AN INTEGER 
VARTABLE. 


RETURNS THE TRUNCATED INTEGER VALUE 
ARITHMETIC-TYPE VARIABLE V DIVIDED B 
RAISED TO THE F POWER. THE OPERATOR 
EMPLOYED IS SCRT IF F IS AN 

INTEGER CONSTANT; DSRT IS USED 

IF F IS AN INTEGER VARIABLE. 


GETS THE INFORMATION INDICATED BY 
N AND LEAVES IT IN THE TOP OF STACK. 


RETURNS THE SECOND WORD 

WITH A SINGLE-PRECISION TAG. 
EVNT MAY BE AN EVENT, 

OR A DOUBLE-PRECISION OPERAND. 


RETURN NUMBER OF ENTRIES 
IN THE QUEUE Q. 


LEAVES IN THE TOP OF THE STACK 

A STUFFED INDIRECT REFERENCE WORD 
WHICH POINTS TO THE LOCATION IN 
MEMORY OF X (WHICH CAN BE A PROCEDUR 
IDENTIFIER, ARRAY IDENTIFIER, EVENT 
IDENTIFIER, INTERRUPT IDENTIFIER, 
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OR QUEUE). IF X IS AN INTERRUPT 
IDENTIFIER, THE RESULTING SIRW 
POINTS TO THE SECOND WORD OF THE 
INTERRUPT. 


XSIGN SXSN SETS EXTERNAL-SIGN FLIP-FLOP 
EQUAL TO SIGN OF TOP OF STACK 
AND RETAIN THE VALUE OF 
THE TOP OF THE STACK. 


BOOLEAN INTRINSICS 


INTRINSIC OPERATOR RESULT 


AVAILABLE(E) RETURNS TRUE IF THE EVENT €E IS 
AVAILABLE (BIT2=0). 


BUSY (X) TRUE IF X IS LOCKED 
(BITO=1). 

HAPPENED (E) RETURNS TRUE IF E HAS "HAPPENED" 
(BITO=1). 

OVERFLOW ROFF RETURNS VALUE OF OVERFLOW 
FLIP-FLOP. 

TOGGLE RTFF RETURNS VALUE OF TRUE-FALSE 
FLIP-FLOP. 

UNLOCK (X) TRUE IF X WAS PREVIOUSLY LOCKED. 


UNLOCK LEAVES X UNLOCKED. 


PROCEDURE INTRINSICS 


INTRINSIC OPERATOR RESULT 


we eww eK Ke ee meee ee —— ee ee 


ALLOW 


BUZZ(X) 


DISALLOW 


EXIT 


HE YOU 


TIOCA,U) 


MOVESTACK(N) 


PAUSE 


RETURN(N) 


SCANOUT(V,T) 
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EEXI 


DEX I 
RDLK 


DEX! 


EXIT 


HE YU 


SCNO 


MVST 


IDLE 


RETN 


SCNO 


ENABLES EXTERNAL INTERRUPTS. 


A ONE(1) IS CONTINUALLY INTERCHANGED 
WITH THE CURRENT 

CONTENTS OF X UNTIL BITO 

OF X IS OFF, AT WHICH POINT 

THAT VALUE IS RETURNED. (NOTE 

THE DEXI OPERATOR WHICH IS 

FIRST AUTOMAGICALLY EXECUTED.) 


DISABLES EXTERNAL INTERRUPTS. 


GENERATES EXIT OPERATOR. 


INTERRUPTS OTHER PROCESSORS. 


INITIATES 1/70, USING UNIT SPECIFIED 
BY U AND ARRAY ROW "A" IS PASSED 
TO THE MULTIPLEXOR. 


TRANSFERS CONTROL TO STACK N. 


IDLES UNTIL AN EXTERNAL INTERRUPT 
OCCURS. 


RETURNS THE 

VALUE N AS A RESULT. 

NOTE THAT “BLOCKEXIT CODE" IS 
AVOIDED VIA THIS INTRINSIC. 


T AND V CAN BE ARITHMETIC TYPE 

OR WORD TYPE ESPRESSIONS. 

V IS THE VALUE WHICH IS SCANNED OUT 
AND T INDICATES WHAT TYPE OF 


SCANOUT WILL TAKE PLACE. 
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STOP HALT MAY HAVE ZERO, OR ONE, OR TWO ARGUME 
STOP LOADS THE ARGUMENTS INTO 
A AND B REGISTERS AND 
HALTS THE PROCESSOR IF THE 
CONDITIONAL HALT SWITCH IS ON. 
DEPENDING ON THE NUMBER OF ARGUMENTS 
THE COMPILER GENERATES THE APPROPRIA 
NUMBER OF "DELETES" TO EMPTY THE 
STACK AFTER THE HALT OPERATOR. 


STOREITEMCFITM,AITM) STORES THE NAME OF AITM IN 
THE LOCATION SPECIFIED BY FITM. 


TIMER(N) SINT SETS INTERVAL TIMER TO VALUE N, 
WHERE N IS IN 512 MICROSECOND 
INCREMENTS. 

TOUCH(EXP) THE EXPRESSION EXP IS EVALUATED AND 


THEN DELETED. IT IS PRIMARILY INTEN 
TO ALLOW SIDE EFFECTS SUCH AS 
PRESENCEBIT ACTION. 


ZAP ZAP ALSO KNOWN AS "SUPER HEYOU" BECAUSE 
IT UNCONDITIONALLY INTERRUPTS ALL 
OTHER PROCESSORS WITH AN ALARM 


INTERRUPT. 
WORD INTRINSIC 
INTRINSIC RESULT 
TOPOF STACK THIS INTRINSIC REFERENCES THE TOP OF 


THE STACK. IT MAY APPEAR ANYWHERE 
A <WORD VARIABLE> COULD APPEAR. FQR 
EXAMPLE: TOPOFSTACK := A := I+J;3 
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OR RETURN 


(TOPOFSTACK). 
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6. PROGRAMS, BLOCKS, AND COMPOUND STATEMENTS 


— we a ee ee ee ee ee ee oe om om we -—— see we ee = ee we ww ew ee 


SYNTAX: 

<PROGRAM> ::= <BLOCK> . <SPACE> / <COMPOUND STATEMENT> . <SPACE> 
<BLOCK> ::= <BLOCK HEAD> ; <COMPOUND TAIL> 

«BLOCK HEAD> ::= BEGIN <DECLARATION> / “BLOCK HEAD> ; <DECLARATIOND 
<COMPOUND TAIL> ::= <STATEMENT> END / <STATEMENT> ; <COMPOUND TAIL> 
<COMPOUND STATEMENT> ::= BEGIN <COMPOUND TAIL> 

<SPACE> ::= <SINGLE SPACE> / <SPACE> <SINGLE SPACED 

SEMANTICS: 

1. LOCAL: EVERY BLOCK AUTOMATICALLY INTRODUCES A NEW LEVEL OF 


NOMENCLATURE FOR IDENTIFIERS DECLARED IN THAT BLOCK. THAT IS, 
ANY IDENTIFIER OCCURRING WITHIN THE BLOCK MAY, THROUGH AN 
APPROPRIATE DECLARATION, BE DECLARED "LOCAL" TO THE BLOCK. 
THE MEANING OF LOCAL IS AS FOLLOWS: 


A. THE VALUE(S) REPRESENTED BY THE IDENTIFIER INSIDE 
THE BLOCK WILL NOT BE RECOGNIZED BY THAT IDENTIFIER 
OUTSIDE THE BLOCK. 


B. CORRESPONDINGLY, ANY VALUE(S) REPRESENTED BY THE 
IDENTIFIER OUTSIDE THE BLOCK WILL NOT BE RECOGNIZED 
BY THAT IDENTIFIER INSIDE THE BLOCK, 


Qe. GLOBAL: AN IDENTIFIER OCCURRING WITHIN A BLOCK AND NOT 
DECLARED WITHIN THAT BLOCK IS "GLOBAL" TO THE BLOCK. THE 
MEANING OF GLOBAL IS AS FOLLOWS: THE IDENTIFIER REPRESENTS THE 
SAME VALUE(S) INSIDE THE BLOCK AS IN THE LEVEL(S) OUTSIDE IT, 
UP TO AND INCLUDING THE LEVEL AT WHICH IT IS DECLARED. 


EXAMPLES: 
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PROGRAM: 


BEGIN REAL V; V-V+V+I END. 


BLOCKS: 


—_—e ee eee 


BEGIN REAL Q; Q+Q+I END 
BEGIN 

INTEGER I,K; REAL UW; 

FOR I-I STEP I UNTIL M DO 
FOR K-I+I STEP I UNTIL M DO 
BEGIN 

WeACLI,K]; 

ALI,KIJ-A(K,11; 

ACK,Ii<W 

END 

END 


COMPOUND STATEMENTS: 


re es en 


BEGIN X+0;FOR Y-I STEP I UNTIL N DO X-X+ATY]; 

IF X>Q THEN GO TO STOP ELSE IFX>W-e THEN GO TO h; 
AW-ST~X+BO0B 

END 

BEGIN V-V+I END 

BEGIN Q-Q+I;V<-V+I END 

BEGIN END 


BLOCK HEADS: 


BEGIN REAL V 
BEGIN REAL V; BOOLEAN Q 


COMPOUND TAILS: 


eae eee ——_— ee 


V-V+I END 
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Q-Q+1I3;V-Q+V END 


DECLARATIONS DEFINE FOR THE COMPILER CERTAIN PROPERTIES 
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7. DECLARATIONS 


GENERAL 


OF 


IDENTIFIERS IN THE BLOCK OF A PROGRAM. DECLARATIONS ARE USED ONLY 
DURING COMPILATION AND ARE, THEREFORE, NOT EXECUTED. 


SYNTAX: 


<DECLARATION> ::= <ARRAY DECLARATIOND / 


<DEF INE DECLARATION> / <DEFINE INVOCATION> / 
<DIRECT ARRAY DECLARATION> / <EVENT DECLARATIOND / 
<EVENT ARRAY DECLARATION> / <FIELD DECLARATIOND / 
<FILE DECLARATION> / <INTERRUPT DECLARATION>D / 
<LABEL DECLARATION> / <LAYOUT DECLARATIOND>D / 


MONITOR DECLARATION> / <PICTURE DECLARATIOND / 


<PROCEDURE DECLARATION> / “QUEUE ARRAY DECLARATIOND / 


<QUEVE DECLARATION> / <TYPE DECLARATIOND / 
<VALUE ARRAY DECLARATION> 


SEMANTICS: 


1. 


SCOPE: THE SCOPE OF THE IDENTIFIER IS THE BLOCK IN WHICH IT IS 
DECLARED EXCEPT FOR THE FOLLOWING: 
A. FORMAL SYMBOLS IN A DEFINE DECLARATION; THE SCOPE OF 
THESE FORMAL SYMBOLS CONSISTS OF THE CORRESPONDING 
DEFINES. 
B. FORMAL PARAMETERS IN A PROCEDURE DECLARATION; THE 


SCOPE OF THESE FORMAL PARAMETERS IS THE PROCEDURE 


DECLARATION. 


T= “2 
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Cc. INVISIBLE FORMAL ITEMS IN A QUEUE DECLARATION; THE 
SCOPE OF THESE FORMAL ITEMS IS THE QUEUE DECLARATION 


LOCAL: AN IDENTIFIER IS SAID TO BE "LOCAL" TO THE BLOCK IN 
WHICH IT IS DECLARED. THAT IS, A VALUE REPRESENTED BY THE 
IDENTIFIER INSIDE THE BLOCK IS ISOLATED FROM THAT IDENTIFIER 
OUTSIDE THE BLOCK. 


AT THE TIME OF EXIT FROM THE BLOCK, ALL IDENTIFIERS WHICH ARE 
DECLARED FOR THE BLOCK LOSE THEIR SIGNIFICANCE. 


GLOBAL: AN IDENTIFIER IS SAID TO BE "GLOBAL" TO A BLOCK IF IT 
MEETS THE FOLLOWING CONDITIONS: 


A. IT IS NOT DECLARED IN THE BLOCK. 
B. IT IS DECLARED IN AN EXTERIOR BLOCK. 


WHEN THE BLOCK IS ENTERED, ALL IDENTIFIERS DECLARED FOR THE 
BLOCK ASSUME THE SIGNIFICANCE IMPLIED BY THE NATURE AND ORDER 
OF THE DECLARATIONS IN THE BLOCK HEAD. 


SOME IDENTIFIERS MAY BE DECLARED WITH THE DECLARATOR "OWN". 
THIS DECLARATOR CAUSES THE IDENTIFIED QUANTITY TO RETAIN ITS 
VALUE(S) FROM ONE EXIT OF A BLOCK TO THE ENTRY INTO THAT BLOCK 


AN IDENTIFIER MAY NOT BE DECLARED TO REPRESENT MORE THAN ONE 
ENTITY IN A SINGLE BLOCK HEAD, FORMAL SYMBOL LIST, FORMAL 
PARAMETER LIST, OR FORMAL ITEM LIST. 
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7.2. ARRAY DECLARATIONS 


SYNTAX: 

<ARRAY DECLARATION> ::= <ARRAY KIND> ARRAY <ARRAY LIST> 

<ARRAY KIND> ::= <EMPTY> / <LOCAL OR OWN TYPED / 
SAVE <LOCAL OR OWN TYPE> 

<LOCAL OR OWN TYPE> ::= <TYPE> / OWN <TYPED 

<ARRAY LIST> ::= <ARRAY SEGMENT> / <ARRAY LIST> , <ARRAY SEGMENT>/ 
<INITIALIZED ARRAY> / <ARRAY LIST> , <INITIALIZED ARRAY? 

<ARRAY SEGMENT> ::= <ARRAY IDENTIFIER> <ADDRESS PART> 


(<BOUND LIST>] / <ARRAY IDENTIFIER> <ADDRESS PART) 
<ARRAY SEGMENT> 


$ 


<BOUND LIST> ::= <BOUND> / <BOUND LIST> , <BOUNDD> 
<BOUND> ::= <WORD COUNT> / #* 
<WORD COUNT> ::= <ARITHMETIC EXPRESSION> 


<INITIALIZED ARRAY>D ::= 
<ARRAY IDENTIFIER> <REPLACEMENT OPERATOR> (<CONSTANT LIST)) 


SEMANTICS: 


1. AN ARRAY DECLARATION DEFINES ONE OR SEVERAL IDENTIFIERS TO 
REPRESENT ARRAYS OF SUBSCRIPTED VARIABLES; IT ALSO PROVIDES 
THE FOLLOWING: 
A. THE DIMENSIONS OF THE ARRAY. 
B. THE BOUNDS OF THE SUBSCRIPTS. 
C. THE TYPES OF THE VARIABLES. 
rae THE VALUE OF AN ARRAY IDENTIFIER IS A’ DATA DESCRIPTOR 


REPRESENTING THE ORDERED SET OF VALUES OF THE CORRESPONDING 
ARRAY OF SUBSCRIPTED VARIABLES. 


10. 


te. 
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AN EMPTY ARRAY KIND MEANS A DEFAULT DECLARATION OF REAL. 


THE LOCATION SPECIFIED BY THE ADDRESS PART MUST CONTAIN A DATA 
DESCRIPTOR OR AN INDIRECT REFERENCE WORD POINTING TO A DATA 
DESCRIPTOR. 


IF "SAVE" IS SPECIFIED, THE ARRAY WILL BE MADE NON-OVERLAYABLE 
WHEN IT IS ALLOCATED. NOTE THAT THE COMBINATION OF "SAVE" AND 
A <BOUND> OF "*" ARE NOT ALLOWED. 


THE BOUND LIST GIVES THE NUMBER OF VALUES FOR EACH SUBSCRIPT 
TAKEN IN ORDER FROM LEFT TO RIGHT. 


A BOUND OF <WORD COUNT> INDICATES THAT <WORD COUNT> IS THE 
TOTAL NUMBER OF WORDS IN THE <ARRAY ROW>. 


A BOUND OF “*" MEANS THAT THE PROGRAMMER IS RESPONSIBLE FOR 
THE ALLOCATION OF THE SPACE FOR THE ARRAY, BUT THE COMPILER 
PRODUCES A ZERO WORD WITH A TAG OF 5. 


EXPRESSIONS USED AS BOUNDS ARE EVALUATED ONCE, FROM LEFT TO 
RIGHT, UPON ENTRANCE INTO THE BLOCK. THESE EXPRESSIONS CAN 
DEPEND ONLY ON VARIABLES AND PROCEDURES WHICH ARE NONLOCAL TO 
THE BLOCK FOR WHICH THE ARRAY DECLARATION IS VALID OR WHICH 
ARE LOCAL AND HAVE INITIAL VALUE PARTS. ARRAYS DECLARED IN 
THE OUTERMOST BLOCK MUST USE CONSTANT OR "“*" BOUNDS. 


A BOUND OF "“*" MAY NOT APPEAR TO THE LEFT OF AN EXPRESSION 
USED AS A BOUND IN THE SAME BOUND LIST. 


WHEN AN ARRAY SEGMENT INCLUDES NON-EMPTY ADDRESS PARTS, A 
BOUND OF "*" MUST BE USED. 


DYNAMIC OWN ARRAYS ARE NOT PERMITTED. 


EXAMPLES: 
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ARRAY DECLARATIONS: 


OWN REAL ARRAY AZ, BZ = (3,4), CZ [27] 
ARRAY BZ110] 


ARRAY LISTS: 


AZ,BZ=(3,4%) ,CZ(27]) 
PQ,RQ[31] 
PCC15)],RC(31]) 


ARRAY SEGMENTS: 


ee ee ew ewe wee ee 


C7C=(-2,5) ,C8C=C7C ,CSOC=(4)[*] 
Ce7(1022) 


BOUND LISTS: 


~~ = ——e eee 


e7 


IF A THEN 1 ELSE Q-7 
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7.3. DEFINE DECLARATIONS AND DEFINE INVOCATIONS 


SYNTAX: 
<DEFINE DECLARATION> ::= DEFINE <DEFINITION LIST> 
<DEFINITION LIST> ::= <DEFINITION> / <DEFINITION LIST> , 
<DEFINITION> 
<DEFINITION> ::= <DEFINED IDENTIFIERD 
<FORMAL SYMBOL PART> = <TEXT> # 
<DEFINED IDENTIFIER> ::= <IDENTIFIERD 


<FORMAL SYMBOL PART> 
<FORMAL SYMBOL LIST> 
<FORMAL SYMBOL > 


<EMPTY> / (<FORMAL SYMBOL LIST>) 
<FORMAL SYMBOL> / <FORMAL SYMBOL LIST>, 


<FORMAL SYMBOL> ::= <IDENTIFIER> 
CTEXT> ::= & ANY SEQUENCE OF VALID <CHARACTER>S NOT INCLUDING 
A FREE # 3 
<DEFINE INVOCATION> ::= <DEFINED IDENTIFIER> <ACTUAL TEXT PART> 
<ACTUAL TEXT PART> ::= <EMPTY> / (CLOSED TEXT LIST>) / 
{[ <CLOSED TEXT LIST> ] 
<CLOSED TEXT LIST> ::= <CLOSED TEXT> / <CLOSED TEXT LIST>, 
<CLOSED TEXT> 
<CLOSED TEXT> ::= 2 AN ACTUAL TEXT NOT CONTAINING 


UNMATCHED BRACKETING SYMBOLS OR UNBRACKETED COMMASS 


SEMANTICS: 


be THE <DEFINE DECLARATION> ASSOCIATES ESPOL SOURCE LANGUAGE 
TEXTS WITH DEFINE IDENTIFIERS. 


2. A <DEFINE INVOCATION> CAUSES THE REPLACEMENT OF THE <DEFINED 
IDENTIFIER> BEING INVOKED BY THE <TEXT> 'IHICH IS ASSOCIATED 
WITH THE IDENTIFIER. NOTE THAT A <DEFINE INVOCATION> CAUSES 
THE GENERATION OF IN-LINE CODE AT COMPILE TIME. 


3. IF THE DEFINITION OF A <DEFINED IDENTIFIER> INCLUDES ANY 


pS af 
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FORMAL SYMBOLS, ANY APPEARANCE OF THESE SYMBOLS IN THE <TEXT> 
OF THE ODEFINITION(CBUT NOT IN A STRING OR COMMENT) WILL BE 
REPLACED BY THE CORRESPONDING <ACTUAL TEXT PART>. 


4. ALTHOUGH THE INVOCATION LOOKS IDENTICAL TO A’  <PROCEDURE 
STATEMENT> OR <SUBSCRIPTED VARIABLE>, BEWARE OF "PASSING" AN 
<ARITHMETIC EXPRESSION> INTO A “DEFINE INVOCATION>. IF THERE 
IS ANY DOUBT, SET THE $ CODE OPTION PRIOR TO THE INVOCATION 
AND VERIFY THE GENERATED CODE. IN MOST INSTANCES, EXTRA 
PARENTHESES INSIDE THE INVOCATION WILL ELIMINATE ANY PROBLEMS. 


5. THE WORD "COMMENT" IS RECOGNIZED IN A “TEXT>, WITH THE RESULT 
THAT IT AND ALL CHARACTERS UP TO AND INCLUDING THE NEXT 
SEMICOLON ARE DELETED FROM THE <TEXT> , NO <TEXT> MAY INCLUDE 
AN INCOMPLETE COMMENT. 


6. IN A <CLOSED TEXT LIST>, THE CLOSED TEXTS ARE SEPARATED BY 
COMMAS, AND THE <CLOSED TEXT LIST> IS TERMINATED BY A RIGHT 
PARENTHESES OR BRACKET. 

ar IN A <CLOSED TEXT>, A COMMA MAY APPEAR ONLY BETWEEN MATCHING 
BRACKETING SYMBOLS. NO UNMATCHED OR UNPAIRED BRACKETS MAY 
APPEAR. 

8. THE SCOPE OF A <FORMAL SYMBOL> IS THE <TEXT> OF THE DEFINITION 


IN WHICH THE <FORMAL SYMBOL> APPEARS. 


o:. BRACKETING SYMBOLS ARE [ 1], (¢ ), AND THE GROUP CONSISTING OF 


THE FOLLOWING: 


DEFINE = # ; 


EXAMPLES: 
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DEFINE FORI= FOR I+1 STEP 1 UNTIL#,ADDUP = AxB+C/D# 


DEFINITION LISTS: 


=z 
ra) 
< 
m 
2 rs 
4 
1 
* 


GO TO#,FOOL(GRANT,MAYBE) = IF GRANT THEN 


wn 
Dv 
~ 
- 
{t 


MAYBE # 


DEFINITION: 


GRANTED (CARITHEXP) = ARITHEXP > NOTSO # 


FORMAL SYMBOL LISTS: 


IDENTIFIERONE, TWO 
ONLY 


( 

PROCEDURE 

ANYID 

IF A THEN GO TO SOUTH ELSE BEGIN X+ZxQ;GO TO NORTH END 
EG; 


INVOCATION: 


GUARANTY ( X+Y¥+1 ) 


ACTUAL TEXT PART: 


CERGO) 
[X-1;6G0 TO L3] 
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7.4. DIRECT ARRAY DECLARATIONS 


SYNTAX: 

<DIRECT ARRAY DECLARATION> ::= DIRECT <DIRECT ARRAY KIND> 
ARRAY <ARRAY LIST> 

<DIRECT ARRAY KIND> ::= <EMPTY> / <TYPED> 

SEMANTICS: 


AN ARRAY WHICH IS DECLARED "DIRECT" PROVIDES FOR FASTER INPUT / 
OUTPUT OPERATIONS. WHEN AN ARRAY IS DECLARED "DIRECT", THE ARRAY 
SPACE ITSELF CAN BE USED AS AN INPUT/OUTPUT BUFFER. 


EXAMPLES: 


DIRECT INTEGER ARRAY AL[10], BL15,15] 
DIRECT ARRAY A[4,10] 
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irra Be EVENT AND EVENT ARRAY DECLARATIONS 


SYNTAX: 

EVENT DECLARATION> ::= <EVENT IDENTIFIER LIST> 

CEVENT IDENTIFIER LIST> ::= <EVENT IDENTIFIER> <ADDRESS PART> / 
<EVENT LIST> , <EVENT IDENTIFIER> <ADDRESS PART> 

<EVENT IDENTIFIER> ::= <IDENTIFIER> 

<EVENT ARRAY DECLARATION> ::= EVENT ARRAY <EVENT SEGMENT LIST> 

CEVENT SEGMENT LIST> ::= <EVENT SEGMENT> / <EVENT SEGMENT LIST> , 
<EVENT SEGMENT> 

<EVENT SEGMENT> ::= <EVENT ARRAY LIST> [£ <BOUND LIST> ] 

CEVENT ARRAY LIST> ::= <EVENT ARRAY IDENTIFIER> <ADDRESS PART? / 
<EVENT ARRAY LIST> , <EVENT ARRAY IDENTIFIER> <ADDRESS PART> 

<EVENT ARRAY IDENTIFIER> ::= <IDENTIFTIER> 

SEMANTICS: 

1. AN EVENT DECLARATION DEFINES THE IDENTIFIER OF A QUANTITY 


WHICH MAY BE USED TO RECORD AN OCCURRENCE. 


Gs AN EVENT ARRAY DECLARATION DEFINES THE IDENTIFIER OF AN ARRAY 
OF THESE QUANTITIES. 


3 THE QUANTITIES ARE USED TO REPORT AN OCCURRENCE TO AN 
ASYNCHRONOUS PROCESS. 


EXAMPLES: 


EVENT E1,Ee@ = (3,4) 


EVENT ARRAY DECLARATION: 
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EVENT ARRAY E3=(NONCE) ,E4[731],E5=(-e2)16]) 
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7.6. FIELD DECLARATIONS 


SYNTAX: 

<FIELD DECLARATION> ::= FIELD <FIELD PART LISTD 

<FIELD PART LIST> ::= <FIELD PART> / <FIELD PART LIST> , 
<FIELD PART> 

<FIELD PART> ::= <FIELD IDENTIFIER> = <FIELD> 

<FIELD IDENTIFIER> ::= <IDENTIFIERD 

<FIELD> ::= <ARITHMETIC EXPRESSIOND : <ARITHMETIC EXPRESSION> 

SEMANTICS: 


1, THE BASIC B6700/B7700 WORD CONSISTS OF 51 BITS: 


As BITS 50, 49, AND 48 ARE REFERRED TO AS "TAG" BITS. 
THESE TAG BITS CANNOT BE ADDRESSED DIRECTLY; 
HOWEVER, THEY MAY BE ADDRESSED BY THE RESERVED FIELD 
IDENTIFIER "TAG". 


B. THE BALANCE OF THE B6700/B7700 WORD IS REFERRED TO 
AS THE “INFORMATION FIELD". THE INFORMATION FIELD 
CONSISTS OF BITS 47 THROUGH ZERO, WHERE 47 IS THE 
BIT ON THE FAR LEFT AND ZERO IS THE BIT ON THE FAR 
RIGHT. 


ae "TAG" IS AN INTRINSIC FIELD; IT IS EQUIVALENT TO THE FIELD 50: 
3, EXCEPT THAT THE LATTER IS NOT EXPLICITLY PERMITTED. 


3. A FIELD DECLARATION DEFINES EACH IDENTIFIER IN ITS FIELD PART 
LIST AS A FIELD IDENTIFIER AND SPECIFIES THE FIELD THAT IT IS 
IDENTIFYING. 


EXAMPLES: 


FIELD Al = 
FIELD QUIZ 


3: 


B6700/87700 ESPOL 


1, AZ = B:1 
20:21 


<FILE 


«FILE 
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FILE DECLARATIONS 


DECLARATION> ::= <OIRECT SPECIFIER> FILE <FILE LIST> 

LIST> ::= “FILE LIST PART> / <FILE LIST>, <FILE LIST PART> 
LIST PART> ::= <FILE DESIGNATOR> / 

<FILE DESIGNATOR> (¢ <INITIAL ATTRIBUTE LIST> ) 

DESIGNATOR> ::= <FILE IDENTIFIER> / 

<DIRECT FILE IDENTIFIER> 

IDENTIFIER> ::= <IDENTIFIER> 


<DIRECT FILE IDENTIFIER> ::= <IDENTIFIER> 
<INITIAL ATTRIBUTE LIST> ::= <INITIAL ATTRIBUTED / 


<INITIAL ATTRIBUTE LIST>, <INITIAL ATTRIBUTE> 


<INITIAL ATTRIBUTED ::= 


<FILE ATTRIBUTE NAME> = <FILE ATTRIBUTE VALUE> 


<FILE ATTRIBUTE NAME> :: = 
<ARITHMETIC-VALUED FILE ATTRIBUTE NAME> / 
<BOOLEAN-VALUED FILE ATTRIBUTE NAME> / 
<MNEMONIC-VALUED FILE ATTRIBUTE NAME> / 
<POINTER-VALUED FILE ATTRIBUTE NAME> 
<ARITHMETIC-VALUED FILE ATTRIBUTE NAME> ::= AREACLASS / AREAS / 


AREASIZE / ASSIGNTIME / ATTVALUE / ATTYPE / BLOCK / 
BLOCKSIZE / BUFFERS / CENSUS / COPIES / CYCLE / DATE ¢ 
DIRECTION / DISPOSITION / ENABLEINPUT / ERRORTYPE / 
FAMILYSIZE / FILETYPE / LASTRECORD / 

LASTSTATION / LINENUM / MAXGENNO / MAXRECSIZE / 
MINRECSIZE / NEXTRECORD / PAGE / PAGESIZE / 

POPULATION / RECEPTIONS / RECORD / RECORDSZ / REEL / 
ROWADDRESS / ROWINUSE / SAVEFACTOR / 

SECURITYTYPE / SECURITYUSE / SCREEN / SERIALNO / 
SIZEMODE / SIZEOFFSET / SIZE2@ / SPEED / STATE / 
TAPEREELRECORD / TRANSMISSIONO / TRANSMISSIONS / UNITNO / 
UNITS / UNITSLEFT / USEDATE / VERSION / WIDTH 
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<BOOLEAN-VALUED FILE ATTRIBUTE NAME> ::= ATTERR / BEGINAT1 / 
BREAK / COPEFILE / COPIES / CYLINDERMODE / DUPLICATED / 
EOF / INTE: CHANGE / NULINPUT / OPEN / OPTIONAL / PRESENT / 
READCHECK » RESIDENT / SINGLEPACK / UPDATE 

<MNEMONIC-VALUED FILE ATTRIBUTE NAME> ::= DENSITY / EXTMODE / 
FILEKIND / INTMODE / KIND / LABELTYPE / MYUSE / 
OTHERUSE / PARITY / PROTECTION / SECURITYTYPE / 
SECURITYUSE / SIZEMODE / SPEED / UNITS 


<POINTER-VALUED FILE ATTRIBUTE NAME> ::= FAMILY / FORMESSAGE / 
INTNAME / TITLE 

<FILE ATTRIBUTE VALUE> ::= <CONSTANT> / 
<FILE ATTRIBUTE MNEMONIC VALUE> 

«FILE ATTRIBUTE MNEMONIC VALUE> ::= <DENSITY MNEMONIC> /. 


<ERRORTYPE MNEMONIC> / <EXTMODE MNEMONIC> / 
<FILEKIND MNEMONIC> / <INTMODE MNEMONIC> / <KIND MNEMONIC> / 
<LABELTYPE MNEMONIC> / <MYUSE MNEMONIC> / 

<QTHERUSE MNEMONIC> / <PARITY MNEMONICD / 

<PROTECTION MNEMONIC> / <SECURITYTYPE MNEMONIC> / 
<SECURITYUSE MNEMONIC> / <SIZEMODE MNEMONIC> / 

<SPEED MNEMONIC> / <STATE MNEMONIC> / 

<UNITS MNEMONIC> 


<DENSITY MNEMONIC> ::= HIGH / MEDIUM / LOW / 
SUPER 

<ERRORTYPE MNEMONIC> ::= NOERROR / SUNOTREADY / 
READPARITYERROR / READCHECKFAILURE / 

<EXTMODE MNEMONIC> ::= SINGLE / BCL / EBCDIC 

<FILEKIND MNEMONIC> ::= SYSTEMDIRECTORY / VERSIONDIRECTORY / 


DIRECTORY / CONTROLDECK / BACKUPDISK / 
RECONSTRUCTIONFILE / SYSTEMDIRFILE / 

COMPILERCODE / LIBRARYCODE / INTRINSICFILE / 
MCPCODEFILE / ALGOLCODE / COBOLCODE / FORTRANCODE / 
XALGOLCODE / PLICODE / JOVIALCODE / ESPOLCODE / 
DCALGOLCODE / BASICCODE / XFORTRANCODE / BOUNDCODE / 
CODEFILE / ALGOLSYMBOL / COBOLSYMBOL / FORTRANSYMBOL / 
XALGOLSYMBOL / PLISYMBOL / JOVIALSYMBOL / ESPOLSYMBOL / 
DCALGOLSYMBOL / BASICSYMBOL / XFORTRANSYMBOL ¢ DATA 
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<INTMODE MNEMONIC> ::= SINGLE / BCL / EBCDIC / ASCII 

<KIND MNEMONIC> ::= DISK / DISKPACK / DISPLAY / PAPER / 
PAPERPUNCH / PAPERREADER / PETAPE / PRINTER / PUNCH / 
READER / REMOTE / TAPE / TAPE7 / TAPES 


<LABELTYPE MNEMONIC> ::= STANDARD / OMITTED / OMITTEDEOF 

<MYUSE MNEMONIC> ::= CLOSED / IN / OUT / I10 

<OTHERUSE MNEMONIC> ::= SECURED / IN / OUT / IO 

<PARITY MNEMONIC> ::= STANDARD / NONSTANDARD 

<PROTECTION MNEMONIC> ::= TEMPORARY / SAVE / PROTECTED 

<SECURITYTYPE MNEMONIC> ::= PRIVATE / CLASSA / CLASSB / 
CLASSC 

<SECURITYUSE MNEMONIC> ::= SECURED / IN / OUT / I0 

<SIZEMODE MNEMONIC> ::= SINGLE / HEX / BCL / EBCDIC 

<SPEED MNEMONIC> ::= FAST / MEDIUMFAST / MEDIUMSLOW / 
SLOW 


<STATE MNEMONIC> ::= NORMAL / ATEND / PARITYERROR / 
DATA ERROR / LOCKEDOUT / NOINPUT / BREAKHERE / 
TIMEOUT / NEWUSER 

<UNITS MNEMONIC> ::= WORDS / CHARACTERS 


SEMANTICS: 


<FILE DECLARATION>S MAY NOT BE DECLARED IN THE OUTER BLOCK, NOR MAY 
THEY BE USED IN ESPOL INTRINSICS. 


A <FILE DECLARATION> ASSOCIATES AN <IDENTIFIER> WITH A FILE. THAT 
FILE"S ATTRIBUTES NEED NOT ALL BE SPECIFIED IN THE <FILE 
DECLARATION>. THOSE ATTRIBUTES NOT SPECIFIED IN THE <FILE 
DECLARATION> MUST BE SET BY CALLING THE MCP PROCEDURE 
“ATTRIBUTEHANDLER" USING THE APPROPRIATE PARAMETER(S). 


A <BOOLEAN-VALUED FILE ATTRIBUTE NAME> APPEARING WITHOUT THE “= 
<LOGICAL VALUE>" PART IMPLIES "“=TRUE". 


REFER TO THE 86700 I/0 SUBSYSTEM INFORMATION MANUAL (5000185) FOR 
DESCRIPTIONS AND EXPLANATIONS OF THE FILE ATTRIBUTES. 


EXAMPLES: 


FILE LINE 
FILE FiB 


FYLE 
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(KIND=PRINTER, BUFFERS#=1, 


(KIND=TAPES, 
(KIND=DISK); 


TITLE="CLUES", 


MAXRECSIZE=17); 
DENSITY=HIGH), 
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7.8. INTERRUPT DECLARATIONS 


SYNTAX: 

<CINTERRUPT DECLARATION> ::= INTERRUPT <INTERRUPT SEGMENT> 
<INTERRUPT SEGMENT> ::= <INTERRUPT IDENTIFIER>; <STATEMENT> 
<INTERRUPT IDENTIFIER> ::= <IDENTIFIER> 

SEMANTICS: 

1. INTERRUPT DECLARATIONS PROVIDE A MEANS OF FORCING A PROCESS TO 


DEPART FROM ITS CURRENT POINT OF CONTROL AND EXECUTE THE 
STATEMENT ASSOCIATED WITH THE INTERRUPT DECLARATION. 


e. IF THE PROCESS IS INACTIVE WHEN THE EVENT IS CAUSED, MORE THAN 
ONE INTERRUPT STATEMENT MAY BE PENDING WHEN THE PROCESS IS 
REACTIVATED. IN THIS CASE, THE INTERRUPT STATEMENTS ARE 


PROCESSED IN THE BLOCK ORDER, WITH THE OUTERMOST BLOCKS FIRST, 
BEFORE RETURN IS MADE TO THE REACTIVATION POINT. 


3. AN INTERRUPT MUST BE ENABLED AND ATTACHED TO AN EVENT BEFORE 
IT CAN HAVE ANY EFFECT. 


AN INTERRUPT IS ATTACHED TO AN EVENT BY USING AN <ATTACH 
STATEMENT>. THIS STATEMENT IMPLICITLY CAUSES THE INTERRUPT 
(BEING ATTACHED) TO BE ENABLED. THE <DETACH STATEMENT> SEVERS 
THE ASSOCIATION BETWEEN THE INTERRUPT AND THE EVENT. 1T ALSO 
IMPLICITLY CAUSES THE INTERRUPT TO BE DISABLED. 


IF AN INTERRUPT IS ALREADY ATTACHED TO AN EVENT, THE INTERRUPT 
MAY BE ENABLED OR DISABLED BY AN <ENABLE STATEMENT> OR A 
<DISABLE STATEMENT>. USING ONE OF THESE TWO STATEMENTS DOES 
NOT AFFECT THE ASSOCIATION BETWEEN AN INTERRUPT AND THE EVENT 
ATTACHED TO IT. 
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yy WITHIN ANY BLOCK, TWO INTERRUPT DECLARATIONS MAY REFERENCE THE 
SAME EVENT. 

EXAMPLES: 
INTERRUPT 11; A := A+B; 


INTERRUPT 12; GO TO LBL; 
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7.9. LABEL DECLARATIONS 


SYNTAX: 
<LABEL DECLARATION> ::= LABEL <LABEL LIST> 
<LABEL LIST> ::= <LABEL IDENTIFIER> / <LABEL LIST> , 
<LABEL IDENTIFIER> 
<LABEL IDENTIFIER> ::= <IDENTIFIER> 
SEMANTICS: 
L. A DECLARED LABEL DECLARATION DEFINES EACH IDENTIFIER IN ITS 


LABEL LIST AS A LABEL IDENTIFIER. 


e. A LABEL IDENTIFIER MUST APPEAR IN A LABEL DECLARATION IN THE 
HEAD OF THE BLOCK IN WHICH IT IS USED TO LABEL A STATEMENT. 


3. A LABEL IDENTIFIER NEED NOT BE DECLARED IF ITS FIRST 
APPEARANCE IN THE BLOCK IS IN A GO TO STATEMENT AND NO 
NONLOCAL LABEL WITH THE SAME IDENTIFIER HAS PREVIOUSLY 
APPEARED. 


EXAMPLES: 


LABEL DECLARATIONS: 


~—m eee ad 


LABEL FOG; 
LABEL L7,L8; 


LABEL LISTS: 


START,EXIT,LOOP 
NEXT 
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7.10. LAYOUT DECLARATIONS 


SYNTAX: 

<LAYOUT DECLARATION> ::= LAYOUT <LAYOUT PART LIST 

<LAYOUT PART LIST> ::= <LAYOUT PART> / <LAYOUT PART LIST> , 
<LAYOUT PART> 

<LAYOUT PART> ::= <LAYOUT IDENTIFIER> (<LAYOUT ITEM LIST>) 

<LAYOUT IDENTIFIER> ::= <IDENTIFIERD 

<LAYOUT ITEM LIST> ::= <LAYOUT ITEM> / <LAYOUT ITEM LIST> ; 
<LAYOUT ITEM> 

<LAYOUT ITEM> ::= <LAYOUT FIELD> <FIELD VALUE PARTD 

<LAYOUT FIELD> ::= <FIELD PART> / <FIELD> / <FIELD IDENTIFIERD 

<FIELD VALUE PART> ::= <EMPTY> / 


<REPLACEMENT OPERATOR> <UNSIGNED INTEGER> 


SEMANTICS: 


Ls A LAYOUT DECLARATION IDENTIFIES EACH IDENTIFIER IN ITS LAYOUT 
PART LIST AS A LAYOUT IDENTIFIER AND SPECIFIES A LAYOUT ITEM 
LIST. 

e. A LAYOUT ITEM LIST IS COMPOSED OF ONE OR MORE FIELDS, REFERRED 


TO AS LAYOUT ITEMS. 


3. A LAYOUT ITEM MAY BE ANY OF THE FOLLOWING: 
A. A PREVIOUSLY DECLARED FIELD IDENTIFIER. 
B. AN UNIDENTIFIED FIELD. 
Cc. A FIELD PART. 
4. A LAYOUT ITEM MAY SPECIFY A DEFAULT VALUE FOR THE FIELD. IF 


NO DEFAULT VALUE IS GIVEN AND NO VALUE IS ASSIGNED, THE FIELD 


IS IGNORED. 


EXAMPLES: 


LAYOUT CeS 
LAYOUT LOOK 
Bl = B:G 


(7:6 < 
(4e:6 
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5, QA = B:6 + Ge, 
- 9, QA = BxQ-R:2) 


QUIZ), 


C3S 


(4:2 


- 


3) 


y- 


22 
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7.11. MONITOR DECLARATIONS 


<MONITOR DECLARATION> ::= MONITOR <PROCEDURE IDENTIFIERD 
{ <MONITOR LIST) ) 
<MONITOR LIST> ::= <MONITORED ITEM> / 
<MONITOR LIST> , <MONITORED ITEM> 
<MONITORED ITEM> ::= <SIMPLE VARIABLE> / <ARRAY IDENTIFIERD 


SEMANTICS: 


WITHIN THE SCOPE OF A MONITOR DECLARATION, THE PROCEDURE IDENTIFIED 
IN THE MONITOR DECLARATION WILL BE EXECUTED WHENEVER A VALUE IS TO 
BE ASSIGNED --BY MEANS OF THE ASSIGNMENT STATEMENT-- To A MONITORED 
ITEM. THE PROCEDURE MUST HAVE THE SAME TYPE AS THE ITEM AND MUST 
URN THE VALUE TO BE ASSIGNED TO THE ITEM. THE PROCEDURE MAY 
LY HAVE TWO PARAMETERS. THE PARAMETERS MUST BE SPECIFIED AS 
VALUE PARAMETERS. THE FIRST PARAMETER CORRESPONDS TO THE FIRST 
EIGHT CHARACTERS OF THE IDENTIFIER OF THE MONITORED ITEM. THE 
SECOND PARAMETER CORRESPONDS TO THE VALUE OF THE EXPRESSION. 
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7.12. PICTURE DECLARATIONS 


SYNTAX: 

<PICTURE DECLARATION> ::= <SAVE OR OWN> PICTURE <PICTURE PART LIST> 

<SAVE OR OWN> ::= SAVE / OWN 

<PICTURE PART LIST> ::= <PICTURE PART> / <PICTURE PART LIST? , 
<PICTURE PART> 

<PICTURE PART> ::= “PICTURE IDENTIFIER> ( <PICTURED ) 

<PICTURE IDENTIFIER> ::= <IDENTIFIER>D 

<PICTURE> ::= <PICTURE SYMBOL> / <PICTURE> <PICTURE SYMBOL > 

<PICTURE SYMBOL> ::= "<HEXADECIMAL STRING>" / "BCL STRING>" / 


"<ASCII STRING>" / “<EBCDIC STRING>" / 
<PICTURE CHARACTER> <REPEAT PART> / 
<CONTROL CHARACTER> / <INTRODUCTION>D / 
<SKIP CHARACTER> <REPEAT PART> / 
<SINGLE PICTURE CHARACTER? 
<REPEAT PART> ::= <EMPTY> / ( “UNSIGNED INTEGER> ) / (*) 
<CONTROL CHARACTER> ::= 4 / 6B / 7/8 Ff 
<SKIP CHARACTER> ::= > / ¢ 
<INTRODUCTION> ::= <INTRODUCTION CODE> <NEW CHARACTER> 
<INTRODUCTION CODE> ::=+ B/C /MSNS/P SU 
<NEW CHARACTER> ::= <STRING CHARACTER> / " 
<SINGLE PICTURE CHARACTER> ::= J / S 
PICTURE CHARACTER? ::= A/ Ds ES F/T / Q*¢ R/S X/ ZA DB 


SEMANTICS: 


1. THE PICTURE DECLARATION PROVIDES A CONSTRUCT FOR GENERALIZED 
CHARACTER EDITING. THE FOLLOWING EDITING OPERATIONS MAY BE 
PERFORMED: 


A. UNCONDITIONAL CHARACTER MOVES. 


B. MOVE CHARACTERS WITH LEADING ZERO EDITING. 


To eS 
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Cc. MOVE CHARACTERS WITH LEADING ZERO EDITING AND FLOATING 
CHARACTER INSERTION. 

D. MOVE CHARACTERS WITH CONDITIONAL CHARACTER INSERTION. 

E. MOVe NUMBERIC PART OF CHARACTERS ONLY. 

F. MOVE CHARACTERS WITH UNCONDITIONAL CHARACTER INSERTION. 

G. SKIP SOURCE CHARACTERS (FORWARD AND REVERSE). 

H. INSERT OVERPUNCH SIGN ON THE PREVIOUS CHARACTER. 


A PICTURE CONSISTS OF A NAMED STRING OF EDITING SYMBOLS WHICH 


ARE ENCLOSED IN PARENTHESES. THE PICTURE EDITING SYMBOLS 
LISTED BELOW MAY BE COMBINED IN ANY ORDER TO PERFORM A WIDE 
RANGE OF EDITING FUNCTIONS “OWN® PICTURES PRODUCE IN-LINE 
CODE 
IF THE REPEAT PART IS EMPTY, IT IS ASSUMED TO BE EQUAL TO ONE. 
IF THE REPEAT PART IS OF THE FORM “"(*)", AN UNSIGNED INTEGER 
VALUE IS EXPECTED FROM THE <REPEAT PARAMETERS> IN A STRING 
TRANSFER STATEMENT. 
THE FOLLOWING OUTPUT CHARACTERS ARE ASSUMED FOR’ THE 
INTRODUCTION CODES. ANOTHER CHARACTER MAY BE SUBSTITUTED FOR 
THE ASSUMED CHARACTER BY THE USE OF THE INTRODUCTION PHRASE, 
AS DEFINED IN THE SYNTAX. 
OUTPUT INTRODUCTION NORMAL 
CHARACTER CODE USE 
SPACE (BLANK) B REPLACEMENT OF LEADING ZEROS. 
: c CONDITIONAL INSERT CHARACTER. 
= M CHARACTER INSERTION IF MINUS. 
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UNCONDITIONAL INSERT CHARACTER. 
CHARACTER INSERTION IF PLUS. 
$ U FLOATING CHARACTER INSERTION. 


THE CONTROL CHARACTERS SHOWN BELOW CAUSE THE FOLLOWING ACTION: 


4 SET THE DEFAULT CHARACTER SIZE OF INSERTED 
CHARACTERS AND STRINGS TO FOUR BITS. 


6 SET THE DEFAULT CHARACTER SIZE OF INSERTED 
CHARACTERS AND STRINGS TO SIX BITS. 


7 SET THE DEFAULT CHARACTER SIZE OF INSERTED 
CHARACTERS AND STRINGS TO SEVEN BITS. 


8 SET THE DEFAULT CHARACTER SIZE OF INSERTED 
CHARACTERS AND STRINGS TO EIGHT BITS. 


REINITIATES LEADING ZERO REPLACEMENT. 


QUOTED STRINGS ARE INSERTED UNCONDITIONALLY IN THE DESTINATION 
STRING. THE CONTROL CHARACTERS 4,6,7,AND 8 TELL THE COMPILER 
WHICH CHARACTER SET TO EXPECT. BCL IS THE DEFAULT CHARACTER 
SET. 


THE SINGLE PICTURE CHARACTERS PERFORM THE FOLLOWING ACTION: 
J IF A MOVE WITH FLOAT (E OR F) HAS NOT INSERTED A 
FLOAT CHARACTER, TERMINATE THE FLOAT AND INSERT THE 


"YU" CHARACTER. OTHERWISE, PERFORM NO OPERATION. 


S INSERT A SINGLE "P" CHARACTER IF THE SIGN IS PLUS. 
OTHERWISE, INSERT A SINGLE "M" CHARACTER. 


THE PICTURE CHARACTERS LISTED BELOW PERFORM THE FOLLOWING 
ACTION: 


9g. 
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MOVE THE NUMBER OF CHARACTERS SPECIFIED BY THE 
REPEAT FIELD. 


IF AN E OR F FLOAT HAS NOT ENDED, INSERT THE "B" 
CHARACTER. OTHERWISE, INSERT THE "Cc" CHARACTER, 


MOVE THE NUMERIC PART ONLY FOR’ THE NUMBER OF 
CHARACTERS SPECIFIED BY THE REPEAT FIELD. SUPPRESS 
LEADING ZEROS BY SUBSTITUTING THE “B" CHARACTER. IF 
THE SIGN IS PLUS, INSERT A "P" CHARACTER IN FRONT OF 
THE FIRST NONZERO NUMBER. OTHERWISE, INSERT AN °M® 
CHARACTER. END THE FLOAT ACTION. 


PERFORM A MOVE NUMERIC WITH LEADING ZEROS REPLACED 
BY THE "B" CHARACTER. INSERT A "U" CHARACTER IN 
FRONT OF THE FIRST NONZERO NUMBER. END THE FLOAT 
ACTION. 


INSERT THE "N" CHARACTER UNCONDITIONALLY. 


BACK UP THE NUMBER OF CHARACTERS INDICATED BY THE 
«REPEAT PART> AND INSERT A SIGN OVERPUNCH. 


IF AN E OR’ F FLOAT HAS NOT ENDED, INSERT THE "Pp" 
CHARACTER. OTHERWISE, INSERT THE "M* CHARACTER. 


SKIP THE DESTINATION POINTER FORWARD BY THE NUMBER 
OF CHARACTERS SPECIFIED IN THE REPEAT FIELD. 


PERFORM A MOVE NUMERIC WITH LEADING ZEROS REPLACED 
BY BLANKS. 


MOVE THE NUMERIC PART ONLY OF THE NUMBER OF 
CHARACTERS SPECIFIED BY THE REPEAT FIELD. 


THE PICTURE SKIP CHARACTERS PERFORM THE FOLLOWING ACTION: 
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SKIP THE SOURCE POINTER BACKWARDS BY THE NUMBER OF 
CHARACTERS SPECIFIED IN THE REPEAT FIELD. 


SKIP THE SOURCE POINTER FORWARD BY THE NUMBER OF 
CHARACTERS SPECIFIED IN THE REPEAT FIELD. 
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7.13. PROCEDURE DECLARATIONS 


eg 


<PROCEDURE DECLARATION> ::= <SAVE PART> <PROCEDURE TYPE> PROCEDURE 


<PROCEDURE HEADING> <PROCEDURE BODY> 
<SAVE PART> ::= <EMPTY> / SAVE / SAVE 1 
<PROCEDURE TYPE> ::= <EMPTY> / <TYPE> 
<PROCEDURE HEADING> ::= <PROCEDURE IDENTIFIER> <ADDRESS PART> 
<FORMAL PARAMETER PART>; 
<PROCEDURE IDENTIFIER> ::= <IDENTIFIER> 
<FORMAL PARAMETER PART> ::= <EMPTY> / (<FORMAL PARAMETER LIST>) ; 
<VALUE PART> <SPECIFICATION PART> 
<FORMAL PARAMETER LIST> ::= <FORMAL PARAMETER) / 
<FORMAL PARAMETER LIST> <PARAMETER DELIMITERD> 
<FORMAL PARAMETER> 
<FORMAL PARAMET B 
<VALUE PART> ::= <EMPTY> / 
<SPECIFICATION PART> ::= < 
<SPECIFICATION> 
<SPECIFICATION> ::= <SPECIFIER> <IDENTIFIER LIST? / 
<ARRAY SPECIFICATION> 
<SPECIFIER> ::= <TYPE> / <PROCEDURE TYPE> PROCEDURE / 
QUEUE / EVENT / PICTURE 
<IDENTIFIER LIST> ::= <IDENTIFIER>D / IDENTIFIER LIST> , 
<IDENTIFIER> 
<ARRAY SPECIFICATION> 
<ARRAY SPECIFIER 
<DIRECT SPECIFIER> ::5 PTY> / DIRECT 
<ARRAY TYPE> ::= <EMPTY <TYPE> / EVENT 
<ARRAY SPECIFIER LIST> ::= <ARRAY SPECIFIERD>D / 
<ARRAY SPECIFIER LIST>, <ARRAY SPECIFIER> 
<ARRAY SPECIFIER> ::= <ARRAY IDENTIFIER LIST> (€ <BOUND SPECIFIER> 
<ARRAY IDENTIFIER LIST> ::= <ARRAY IDENTIFIERD / 
<ARRAY IDENTIFIER LIST> , “ARRAY IDENTIFIER> 


ERD> ::= <1 


<DIRECT SPECIFIER> <ARRAY TYPE> ARRAY 


vy A 7 
Mm 
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<BOUND SPECIFIER> ::= * / <BOUND SPECIFIER> , * 

<PROCEDURE BODY> ::= <STATEMENT> / FORWARD / EXTERNAL / NULL 
SEMANTICS: 

1. A PROCFDURE DECLARATION DEFINES THE PROCEDURE IDENTIFIER AS 


THE NAME OF A PROCEDURE. 


2. A <SAVE PART> OF “SAVE" INDICATES THAT THE CODE FOR THE 
PROCEDURE CURRENTLY BEING DECLARED IS TO BE IN THE SAME 
SEGMENT AS THE BLOCK IN WHICH IT IS DECLARED. THUS THE 
COMPILER WILL NOT CREATE A NEW SEGMENT FOR THE PROCEDURE. 


"SAVE" ALSO SPECIFIES CONTROL STATE. 


3. A <SAVE PART> OF "SAVE 1" INDICATES THAT THE PROCEDURE BEING 
DECLARED IS AN "INITIALIZATION" PROCEDURE. THE CODE FOR THE 
PROCEDURE WILL BE AT THE END OF THE INITIAL BLOCK 
INFORMATION WHICH IS LOADED BY THE HARDWARE. THERE WILL BE 


THREE WORDS OF INFORMATION BETWEEN THE "SAVE 1 CODE" 


REST OF THE INITIAL BLOCK, IN ORDER TO FACILITATE RELOCATION 


OF THE AREA AFTER INITIALIZATION IS COMPLETE. 


4. THE DIRECTIONS GIVEN FOR THE TYPE DECLARATION ADDRESS PART 
APPLY TO PROCEDURE DECLARATIONS. THE ADDRESS SPECIFIED MUST 
BE THAT OF A PROGRAM CONTROL WORD OR AN INDIRECT REFERENCE 


WORD POINTING TO A PROGRAM CONTROL WORD. 


5. THE VALUE PART SPECIFIES WHICH FORMAL PARAMETERS ARE TO BE 
CALLED BY VALUE. WHEN A FORMAL PARAMETER IS CALLED BY VALUE, 
THE FORMAL PARAMETER IS SET TO THE VALUE OF THE CORRESPONDING 
ACTUAL PARAMETER. THEREAFTER, THE FORMAL PARAMETER IS HANDLED 
AS A VARIABLE THAT IS LOCAL TO THE PROCEDURE BODY. THAT 
ANY CHANGE OF VALUE OF THE VARIABLE WILL NOT RAMIFY OUTSIDE 


THE PROCEDUnE BODY. 


6. ONLY ARITHMETIC, BOOLEAN, POINTER, AND REFERENCE EXPRESSIONS 


13. 
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MAY BE GIVEN AS ACTUAL PARAMETERS TO BE CALLED BY VALUE. 
THESE EXPRESSIONS WILL BE EVALUATED ONCE, BEFORE ENTRY INTO 
THE PROCEDURE BODY. 


FORMAL PARAMETERS NOT IN THE VALUE PART ARE CALLED BY NAME (AN 
EXCEPTION IS THE EVENT FORMAL PARAMETER; SEE BELOW). THIS 
MEANS THAT WHEREVER A FORMAL PARAMETER -- CALLED BY NAME -- 
APPEARS IN THE PROCEDURE BODY, THE FORMAL PARAMETER 1S 
REPLACED BY THE ACTUAL PARAMETER. 


EVENT FORMAL PARAMETERS ARE CALLED BY REFERENCE (NOT IN ANY 
WAY CONNECTED WITH THE ESPOL REFERENCE TYPE). CALL BY 
REFERENCE DIFFERS FROM CALL BY NAME IN THAT WHEN THE ACTUAL 
PARAMETER IS A SUBSCRIPTED VARIABLE, THE REFERENCED ARRAY 
ELEMENT IS DETERMINED AT THE TIME OF CALL. IT IS THIS ARRAY 
ELEMENT WHICH IS ACCESSED AT EACH APPEARANCE OF THE FORMAL 
PARAMETER WITHIN THE PROCEDURE BODY. 


EVERY FORMAL PARAMETER MUST APPEAR IN THE SPECIFICATION PART. 


AN "*" MUST APPEAR IN A BOUND SPECIFIER FOR EACH DIMENSION OF 
THE ARRAY. 


ESPOL PROCEDURES ARE RECURSIVE. 


IN CERTAIN SITUATIONS WHERE PROCEDURES ARE CALLED RECURSIVELY, 
IT IS NECESSARY TO CALL A PROCEDURE THAT HAS NOT BEEN DECLARED 
THE DECLARATOR “FORWARD" IS USED IN THIS CIRCUMSTANCE. THAT 
IS, THERE IS FIRST AN APPROPRIATE PROCEDURE DECLARATION, WITH 
THE PROCEDURE BODY REPLACED BY "FORWARD", THEN THE CALL ON THE 
PROCEDURE, AND LATER, THE COMPLETE PROCEDURE DECLARATION. 


A <PROCEDURE BODY> OF "EXTERNAL" INDICATES THAT THE PROCEDURE 
WILL BE BOUND IN LATER AND NOT COMPILED IN NOW. 


IF "NULL" IS SPECIFIED AS THE <PROCEDURE BODY>, THE COMPILER 
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GENERATES NOTHING FURTHER. THIS IS TYPICALLY USED WHEN 
PROGRAMMER KNOWS MORE THAN THE COMPILER. 


EXAMPLES: 


PROCEDURE FAKE ;X“X+Z 
PROCEDURE NEXT(A); VALUE A; REAL A; X~Atl1 
PROCEDURE NEXT(A); VALUE A; REAL A; FORWARD 


PROCEDURE HEADING: 


COMMUNE = INTRIN (A); REAL A; 


FORMAL PARAMETER PARTS: 


(A,B,C); VALUE A; REAL A,B,C; 


(ABSTRACT ,DEGENERATE); VALUE ABSTRACT; REAL ABSTRACT; 


PROCEDURE DEGENERATE; 


FORMAL PARAMETER LISTS: 


A,B,C 
X) “VALUE OF EXPRESSION X PLUS 2 "(CALCRULE 


VALUE PART: 


VALUE X,Y,2Z 


SPECIFICATION PART: 


INTEGER N; ARRAY A,B,C,X1,X20*];ALPHA ARRAY X3[*1; 
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SPECIFICATIONS: 


INTEGER N,0O,P,Q 
PROCEDURE MIN, MAX, F 
QUEUE X,Y,Z 

EVENT A,B,C 

QUEUE ARRAY FRED[*] 


x 


SPECIFICATIONS: 


REAL ARRAY GYM [*, #*] 


BOOLEAN ARRAY WADSUP C*,*,*], CUMONI#, 


SPECIFIER LISTS: 


GIGO[*] 
HEREC *],THERE[*,*,*,#] 


SPECIFIER: 


_——_ oe ee 


BEGIN I-x+QxR;V-1+RAYG(Q);END SAMPLE 
FORWARD 


*] 


T- 
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7.14. QUEUE AND QUEUE ARRAY DECLARATIONS 


SYNTAX: 

<QUEUE DECLARATION> ::= QUEUE <QUEUE HEAD> <QUEUE BODY> 

<QUEUE ARRAY DECLARATION> ::= QUEUE ARRAY <QUEUE ARRAY HEAD? 
{<INDEX BOUND>] <QUEUE BODY> 

<QUEUE HEAD> ::= “QUEUE IDENTIFIERD <INTERNAL NAME PART> 

<QUEUE ARRAY HEAD> ::= <QUEUE ARRAY IDENTIF ITFER> 
<INTERNAL NAME PART> 

< INDEX BOUND> ::= <ARITHMETIC EXPRESSION> 

<CINTERNAL NAME PART> ::= <EMPTY> / : <SECOND NAME> <ADDRESS PART> 

SECOND NAME> ::= <IDENTIFIER> 

<QUEUE BODY> ::= <ENTRY DESCRIPTION> ; <ALGORITHM PART> 

CENTRY DESCRIPTION> ::= (<ENTRY ITEM LIST>) 3; <VALUE PART> ; 
<SPECIFICATION PART> 

<ENTRY ITEM LIST> ::= <ITEM LIST> <INVISIBLE ITEM LIST> 

<ITEM LIST> ::= <ITEM IDENTIFIER? / 
ITEM LIST> <PARAMETER DELIMITER> <ITEM IDENTIFIER? 

<CINVISIBLE ITEM LIST> ::= <ITEM LIST> 

<ALGORITHM PART> ::= <EMPTY> / USING <ALGORITHM LIST> 

<ALGORITHM LIST> ::= <ALGORITHM> / <ALGORITHM> : <ALGORITHM LIST> 

<ALGORITHM> ::= <BOOLEAN ALGORITHM IDENTIFIER> IF 


<BOOLEAN EXPRESSION> / <REFERENCE ALGORITHM IDENTIFIER> IS 
<REFERENCE EXPRESSION> / TO <ALGORITHM IDENTIFIER? , 
<STATEMENT> / <LOCK SPECIFICATION> / 

INTEGER ALGORITHM IDENTIFIER>, <STATEMENT> 


<LOCK SPECIFICATION> ::= LOCKED / LOCKED <QUEUE NAME> 

CQUEUE IDENTIFIER> ::= <IDENTIFIERD>D 

<QUEUE ARRAY IDENTIFIER> ::= <IDENTIFIER> 

CREFERENCE ALGORITHM IDENTIFIER> ::= ALLOCATE / NEXT / LAST / 
FIRST / PRIOR 

<ALGORITHM IDENTIFIER> ::= INSERT / REMOVE / DELINK / <IDENTIFIERD 


NTIFIER> ::= EMPTY / FULL 


<BOOLEAN ALGORITHM !DE 
DENTIFIER> ::= POPULATION 


<INTEGER ALGORITHM I 
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SEMANTICS: 


A QUEUE IS AN ORDERED LIST OF ENTRIES. EACH ENTRY HAS THE 
FORM OF AN <ARRAY ROW>, WITH ONE WORD FOR EACH <ITEM 
IDENTIFIER> IN THE <ENTRY ITEM LIST>. | 


A QUEUE ARRAY IS AN ARRAY OF QUEUES. THE <INDEX BOUND> 
DESIGNATES THE NUMBER OF QUEUES INVOLVED AND IS A STRICT UPPER 
BOUND FOR THE QUEUE ARRAY SUBSCRIPTS. 


THE <ENTRY ITEM LIST> IS IN EFFECT A DECLARATION FOR EACH OF 
THE <ITEM IDENTIFIER>S APPEARING IN IT. THOSE <ITEM 
IDENTIFIER>S APPEARING IN THE <INVISIBLE ITEM LIST> ARE 
UNDERSTOOD TO BE LOCAL TO THE QUEUE DECLARATION AND MAY NOT BE 
REFERENCED EXCEPT IN THE <QUEUE BODY>. THE REMAINING <ITEM 
IDENTIFIER>S WILL BE LOCAL TO THE BLOCK IN WHICH THE QUEUE IS 
DECLARED. 


WHEN AN <ENTRY EXPRESSION> IS CREATED, THE ELEMENTS IN THE 
<ACTUAL ITEM LIST> MUST BE IN A ONE-TO-ONE-CORRESPONDENCE WITH 
THE <ITEM IDENTIFIER>S IN THE <ITEM LIST> OF THE “ENTRY 
DESCRIPTION> FOR THE QUEUE IN QUESTION. THE INVISIBLE <ITEM 
IDENTIFIER>S WILL NOT HAVE CORRESPONDING <ACTUAL PARAMETERDS. 


THE <SECOND NAME> OF THE QUEUE OR QUEUE ARRAY IS LOCAL TO THE 
<QUEVE BODY>. IT IS USED WITHIN THE <QUEVE BODY> WHENEVER IT 
TS NECESSARY TO REFER TO THE QUEUE ITSELF IN A SITUATION WHICH 
WOULD OTHERWISE LEAD TO A RECURSIVE CALL ON THE QUEUE 
ALGORITHMS. 


THE RESERVED WORD "ENTRY" IS LOCAL TO THE <QUEUE BODY>. IT IS 
USED TO REFER TO THE ENTRY WHICH IS CURRENTLY BEING PLACED IN 
OR REMOVED FROM THE QUEUE. FOR <QUEUE ARRAY DECLARATIONDS 
THERE IS ALSO THE RESERVED WORD "INDEX" WHICH IS LOCAL TO THE 
<QUEVE BODY>. "INDEX" IS THE CURRENT SUBSCRIPT TO THE QUEUE 
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ARRAY. 


THE "ALLOCATE" ALGORITHM WILL BE INVOKED WHENEVER IT IS 
NECESSARY TO ALLOCATE SPACE FOR AN ENTRY OR AN <ENTRY 
EXPRESSION>. IF NO "ALLOCATE" ALGORITHM IS GIVEN, THEN AN 
<ENTRY EXPRESSION> USING THE <QUEUE NAME> CANNOT BE USED. 


THE "INSERT" ALGORITHM IS USED TO INSERT NEW ENTRIES IN THE 
QUEUE. IT WILL BE CALLED EACH TIME A <QUEUE ASSIGNMENT> IS 
USED. THUS A <QUEUE ASSIGNMENT> MAY NOT BE USED FOR A QUEUE 
LACKING A "INSERT" ALGORITHM. 


THE QUEUE ALGORITHMS USED BY A QUEUE ARE LOCAL TO THE BLOCK IN 
WHICH THE QUEUE IS DECLARED. IN AN EXPLICIT CALL ON A QUEUE 
ALGORITHM, THE <ACTUAL PARAMETER LIST> WILL HAVE THE FOLLOWING 
GENERAL FORMAT: <QUEUE NAME>, <REFERENCE EXPRESSION>, 
<ARITHMETIC EXPRESSION>. THE <QUEUE NAME> PARAMETER MUST 
ALWAYS BE PRESENT. THE <REFERENCE EXPRESSION> IS NOT REQUIRED 
FOR ALL ALGORITHMS; WHEN USED, IT IS PASSED TO "ENTRY" IN THE 
<QUEVE BODY>. THE <ARITHMETIC EXPRESSION> IS REQUIRED ONLY 
FOR QUEUE ARRAYS, AND EVEN THEN IT MAY NOT BE NECESSARY. THE 
<ARITHMETIC EXPRESSION> IS PASSED TO "INDEX" IN THE <QUEUE 
BODY> OF THE <QUEUE ARRAY DECLARATION>. THE FOLLOWING TABLE 
SHOULD BE HELPFUL. 


ALGORITHM REFERENCE INTEGER 
REMOVE NO YES 
INSERT YES YES 
DELINK YES YES 
ALLOCATE NO NO 
NEXT NO YES 
LAST NO YES 
FIRST NO YES 
PRIOR YES YES 
EMPTY NO YES 


FULL NO YES 
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POPULATION NO YES 
ALL OTHERS YES YES 


EXAMPLES: 


REFERENCE LASTREADY; 

QUEUE READYLIST:FIRSTREADY(STKNR,PRIORITY:NEXTREADY, PREADY); 
VALUE NEXTREADY,PREADY,STKNR,PRIORITY: 
INTEGER STKNR,PRIORITY; 
REFERENCE NEXTREADY,PREADY; 

USING 

TO INSERT, IF LASTREADY=NULL 


THEN NEXTREADY@(LASTREADY~F IRSTREADY-ENTRY ) “PREADY=<NULL 
ELSE IF PRIORITY@ENTRY = PRIORITY@(PREADY* (ENTRY )“LASTREADY) 


THEN 
NEXTREADY@ (NEXTREADY@(LASTREADY)+LASTREADY<ENTRY) “NULL 
ELSE IF PRIOITYSENTRY < PRIORITY THEN COMMENT GOES AT HEAD; 
PREADY® ( PREADYe ( NEXTREADY®@ (ENTRY )«F IRSTREADY )«F IRSTREADY 
“ENTRY )*NULL 
ELSE 
BEGIN 
WHILE PRIORITY@®ENTRY<PRIORITY@PREADY@ENTRY DO 
PREADY@® (ENTRY )“PREADY@PREADY@ENTRY ; 
NEXTREADY@ (ENTRY )-NEXTREADY@PREADY@ENTRY; 
NEXTREADY®( PREADY@ENTRY ) -PREADY@(NEXTREADY@ENTRY) «ENTRY 
END: 
EMPTY IF FIRSTREADY=NULL: 
TO REMOVE, 


IF ENTRY=FIRSTREADY THEN 
IF FIRSTREADY=LASTREADY THEN 
FIRSTREADY“LASTREADY*NULL 
ELSE PREADY@(FIRSTREADY“NEXTREADY)=<NULL 

ELSE IF ENTRY=LASTREADY THEN 
NEXTREADY@(LASTREADY-PREADY®ENTRY) “NULL 

ELSE PREADY@(NEXTREADY®@( PREADY@ENTRY ) “NEXTREADY@ENTRY ) 
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“PREADY@ENTRY; 


J- 
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7.15. TYPE DECLARATIONS 


<TYPE DECLARATIGN> ::= <TYPE> <TYPE LIST> / 
OWN <TYPE> <TYPE LIST> 


7- 


<TYPE> ::= BOOLEAN / DOUBLE / EVENT / INTEGER / NAME / POINTER / 


REAL / REFERENCE / WORD 
<TYPE LIST> ::= <TYPE PART> / <TYPE LIST> , <TYPE PART> 
<TYPE PART> ::= <TYPE IDENTIFIER> <ADDRESS PART> / 
<TYPE IDENTIFIER> <REPLACEMENT OPERATOR> <INITIAL VALUED 
<ADDRESS PART> ::= <EMPTY> / = <ADDRESS> 
<ADDRESS> ::= <IDENTIFIER> / <ADDRESS COUPLE> / 
<IDENTIFIER> <ADDING OPERATOR> <UNSIGNED INTEGERD 
<ADDRESS COUPLE> ::= (<LEVEL> <DISPLACEMENT> ) 
<LEVEL> ::= <UNSIGNED INTEGER> / - <UNSIGNED INTEGER> 
<DISPLACEMENT> ::= <EMPTY> /¢/ , “UNSIGNED INTEGER> 
<INITIAL VALUE> ::= <EXPRESSION> 
<TYPE IDENTIFIER> ::= <IDENTIFIER> 


SEMANTICS: 
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ae A <TYPE DECLARATION> DEFINES THE TYPE OF VALUE OF EACH <TYPE 


IDENTIFIER>. 


e. A <TYPE DECLARATION> MAY ALSO ASSIGN THE ADDRESS OF THE 
IDENTIFIER, OR ASSIGN THE INITIAL VALUE OF THE IDENTIFIER, 
SPECIFY THAT THE IDENTIFIER HAS THE PROPERTY SPECIFIED BY THE 
DECLARATOR. THE OWN PROPERTY ACTION IS ESSENTIALLY THE SAME 
AS THAT WHICH WOULD OCCUR IF THE PROGRAMMER WERE TO SPECIFY AN 
ADDRESS COUPLE REFERENCING THE ZERO LEVEL WITH AN EMPTY 


DISPLACEMENT. 


OR 


3. AN <ADDRESS> WHICH IS AN <IDENTIFIER> ASSIGNS THE <TYPE 
THE 


IDENTIFIER> TO THE SAME LOCATION AS THE <IDENTIFIER>. 


10. 


11. 
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<IDENTIFIER> MUST HAVE BEEN DECLARED PREVIOUSLY AND MUST 
IDENTIFY A QUANTITY HAVING A STACK ADDRESS. 


AN EMPTY ADDRESS PART RESULTS IN THE ASSIGNMENT OF AN ADDRESS 
COUPLE BY THE COMPILER. 


AN ADDRESS COUPLE IS AN ADDRESSING LEVEL AND A DISPLACEMENT 
FROM THE BASE OF THAT LEVEL. 


THE ADDRESSING LEVEL MAY RANGE FROM ZERO TO 31. 
A NEGATIVE INTEGER USED AS A LEVEL DIRECTS THE COMPILER TO 
DETERMINE THE LEVEL REFERENCED BY SUBTRACTING THE INTEGER FROM 


THE LEVEL OF THE BLOCK BEING COMPILED. 


AN EMPTY DISPLACEMENT DIRECTS THE COMPILER TO USE THE NEXT 
AVAILABLE DISPLACEMENT FOR THE LEVEL INDICATED. 


THE RANGE OF DISPLACEMENT DEPENDS UPON THE VALUE OF LEVEL: 


LEVEL DISPLACEMENT RANGE 
0,1 0 - 8191 

2,3 Oo - 4095 

4 - 7 0 - 2047 

8 - 15 0 - 1023 

16 - 31 0 - 511 


THE SPECIFIED LEVEL MUST BE LESS THAN OR EQUAL TO THE CURRENT 
LEVEL. 


IT 1S POSSIBLE FOR TWO OR MORE IDENTIFIERS TO HAVE THE SAME 
ADDRESS COUPLE (DIRECTED BY THE PROGRAMMER). IT IS THE 
RESPONSIBILITY OF THE PROGRAMMER TO SEE THAT THE ANTECEDENTS 
OF AN ADDRESS COUPLE USED AS AN ADDRESS PART ARE CORRECT. 


AN INITIAL VALUE EXPRESSION ASSIGNS THE VALUE THAT THE 
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IDENTIFIER HAS UPON ENTERING THE BLOCK IN WHICH THE TYPE 
DECLARATION APPEARS, THE EXPRESSION IS EVALUATED UPON EACH 
ENTRY TO THE BLOCK. ALL INITIAL VALUE EXPRESSIONS ARE 
EVALUATED IN THE ORDER IN WHICH THEY APPEAR. 


13. AN INITIAL VALUE EXPRESSION MUST BE OF THE SAME TYPE AS THE 
DECLARATION. 

14. IF AN INITIAL VALUE IS NOT SPECIFIED FOR ANY TYPE IDENTIFIER, 
THE INITIAL VALUE OF THAT IDENTIFIER IS ZERO. 

EXAMPLES: 


OWN REAL 


OWN INTEG 


INTEGER O+1; Ry S=T, V=(3,4); 


V, Q; 
ER B 


R Ope 


TYPE LIST: 


GENERAL =(1,2),F1eT-5,2=(3) 


TYPE PART: 


ZERO+-1 
QUOTE = (3,4) 
TERIF=GRT 


ADDRESS: 


ZQW 
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(3,4) 


INITIAL VALUE: 


IF B THEN XxQ ELSE BOD+NOTHING 


y- 
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7.16. VALUE ARRAY DECLARATIONS 


<VALUE ARRAY DECLARATION> ::= <ARRAY SAVE PART> <VALUE TYPED 
VALUE ARRAY <VALUE ARRAY PART LIST> 

<ARRAY SAVE PART> ::= <EMPTY> / SAVE 

<VALUE TYPE> ::= REAL / INTEGER / DOUBLE / BOOLEAN 

<VALUE ARRAY PART LIST> ::= <VALUE ARRAY IDENTIFIERD 
<REPLACEMENT OPERATOR> (<CONSTANT LIST>) / 
<VALUE ARRAY IDENTIFIER> (€<CONSTANT LIST>) 

<CONSTANT LIST> ::= <CONSTANT> / “CONSTANT LIST> , <CONSTANTD 

<CONSTANT> ::= <NUMBER> / “LOGICAL VALUE> / <STRING> / 
<CONSTANT EXPRESSION> / <UNSIGNED INTEGER> (<CONSTANT LISTD) 

<CONSTANT EXPRESSION> ::= £AN EXPRESSION WHICH CAN BE ENTIRELY 
EVALUATED BY THE ESPOL COMPILER AT COMPILE TIMEX 


SEMANTICS: 


THE VALUE ARRAY DECLARATION DEFINES A ONE-DIMENSIONAL ARRAY OF 
VALUES. 


A  <CONSTANT EXPRESSION> CAN CONSIST OF ANYTHING WHICH THE ESPOL 
COMPILER CAN COMPLETELY EVALUATE AT COMPILE TIME. THIS INCLUDES 
CONCATENATION, VARIOUS <INTRINSIC>S SUCH AS FIRSTONE, ONES, ETC. 


EXAMPLES: 


SAVE BOOLEAN VALUE ARRAY DISPLAYOPT-(TRUE, FALSE, FALSE, TRUE) 
VALUE ARRAY EPSILON(8"“2.71828182845904523536028747135266") 


B6700/B7700 ESPOL 


8. STATEMENTS 


8.1. GENERAL 


THE UNITS OF OPERATION WITHIN THE LANGUAGE ARE CALLED STATEMENTS. 


SYNTAX: 
<STATEMENT> ::= <CONDITIONAL STATEMENT> / UNCONDITIONAL STATEMENT) 
<CONDITIONAL STATEMENT> ::= <IF CLAUSE> <STATEMENT> / 


<IF CLAUSE> <UNCONDITIONAL STATEMENT> ELSE 
<CONDITIONAL STATEMENT> / <CONDITIONAL ITERATION>D / 
<LABEL> : <CONDITIONAL STATEMENT> 

<IF CLAUSE> ::= IF <BOOLEAN EXPRESSION> THEN 

<LABEL> ::= <LABEL IDENTIFIER> 

<UNCONDITIONAL STATEMENT> ::= <EMPTY> / <IF CLAUSED 
<UNCONDITIONAL STATEMENT> ELSE <UNCONDITIONAL STATEMENT> / 
<LABEL> : <UNCONDITIONAL STATEMENT) / 
<ASSIGNMENT STATEMENT> / <BASIC STATEMENT> / 
<BLOCK> / <COMPOUND STATEMENT> / <DEFINE INVOCATIOND / 
<EVENT STATEMENT> / FORK STATEMENT> / 
<FUNCTION DESIGNATOR> / <I/0 STATEMENT> / 
/ <INTERRUPT STATEMENT> / <ON STATEMENT> / 
<PROCEDURE STATEMENT> / <REPLACE STATEMENTD / 
<SCAN STATEMENT> / <UNCONDITIONAL ITERATION> 


SEMANTICS: 
1. STATEMENTS CAN BE LABELED. 
Q. A CONDITIONAL STATEMENT CAUSES CERTAIN STATEMENTS TO BE 


EXECUTED OR SKIPPED, DEPENDING ON THE VALUE PRODUCED BY A 
BOOLEAN EXPRESSION. 
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EXAMPLES: 


IF X>B THEN X-X+1 ELSE GO TO Be 
X-+A+B 


CONDITIONAL STATEMENTS: 


Be : IF X>0 THEN N-N+1 

IF TREU THEN V:Q*N+M ELSE IF NOT BOO THEN Q:= M/N 
IF BeFCA) THEN GO TO START 

WHILE TRUE DO IF X+Q+M>Z THEN GO TO L6 


UNCONDITIONAL STATEMENTS: 


LBL: GO TO NEXT 

IF Z>X THEN GO TO FLAS ELSE GO SCND 

BEGIN YX+1;Z<Y+e END 

BEGIN REAL X; LABEL Q; IF Z>P THEN GO TO Q@ ELSE X+FC(C); 
Q:END 

LBL: 


IF B>A THEN 
IF GATE{1,2] AND GATEI[1,31]THEN 
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B.e. ASSIGNMENT STATEMENTS 


<ASSIGNMENT STATEMENT> ::= <ARITHMETIC ASSIGNMENT STATEMENT) / 
<ARRAY ASSIGNMENT STATEMENT> / 
<BOOLEAN ASSIGNMENT STATEMENT> / “QUEUE ASSIGNMENT> / 
<REFERENCE ASSIGNMENT> / <WORD ASSIGNMENT) 

<ARITHMETIC ASSIGNMENT STATEMENT> ::= <ARITHMETIC ASSIGNMENT>D / 
ARITHMETIC FIELD ASSIGNMENT> 

<ARITHMETIC FIELD ASSIGNMENT> ::= 
<ARITHMETIC VARIABLE> . <FIELD IDENTIFIER> 
<REPLACEMENT OPERATOR> <ARITHMETIC EXPRESSION> 

<ARRAY ASSIGNMENT STATEMENT> ::= <ARRAY ASSIGNMENTD> / 
<ARRAY FIELD ASSIGNMENT> 

<ARRAY FIELD ASSIGNMENT> ::= 
<ARRAY DESIGNATOR> . <FIELD IDENTIFIER> 
<REPLACEMENT OPERATOR> <ARITHMETIC EXPRESSION> 

<BOOLEAN ASSIGNMENT STATEMENT> ::= <BOOLEAN ASSIGNMENTD / 
<BOOLEAN FIELD ASSIGNMENT> 

<BOOLEAN FIELD ASSIGNMENT> ::= 
<BOOLEAN VARIABLE> . <FIELD IDENTIFIERD> 
<REPLACEMENT OPERATOR> <BOOLEAN EXPRESSION> 

<QUEUE ASSIGNMENT> ::= <QUEUE DESIGNATOR> “REPLACEMENT OPERATOR)> 
“REFERENCE EXPRESSION> 


SEMANTICS: 


1. THE ASSIGNMENT STATEMENT CAUSES THE EXPRESSION TO THE RIGHT OF 
THE REPLACEMENT OPERATOR TO BE EVALUATED. THE VALUE IS THEN 
ASSIGNED (OR TRANSFERRED) TO THE VARIABLE OR FIELD ON THE LEFT 


ate A QUEUE ASSIGNMENT CAUSES THE ENTRY DENOTED BY THE VALUE OF 
THE REFERENCE EXPRESSION TO BE MADE AVAILABLE TO THE INSERTION 
PART OF THE DESIGNATED QUEUE: IT THEN CAUSES THIS INSERTION 
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PART TO BE EXECUTED. 


PRAGMATICS: 


1. 


<WORD ASSIGNMENT>S INVOKE OVRD ACTION. 


COMPILED <WORD 


2. THERE IS NO GUARANTEE THAT A- CORRECTLY 
ASSIGNMENT> WILL PRODUCE VALID B6700/B7700 CODE. 
EXAMPLES: 


V-BxQ-R 
JOY.BOY<- V-Q 


ARITHMETIC ASSIGNMENTS: 


ALTHO + N#+1 
S(TV,K+2]:=3-FUNC(Q+2) 


ARITHMETIC FIELD ASSIGNMENTS: 


IOQUEVUE.ERR+ 6 
VI7].LNK := QUED-GONEx7 


ARRAY ASSIGNMENT: 


NEXT+IF At1,2]AND BIQ,3] THEN VARYTe, 


BOOLEAN ASSIGNMENT STATEMENTS: 


RDY< TRUE 


4 
i 


ELSE A2d53-Aest 
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PARTWAY.NXT + B AND GONE > 6 


QUEUE ASSIGNMENT: 


QUED -QUEBCHERE, THERE ,EVYWHR) 
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8.3. BASIC STATEMENTS 


SYNTAX: 
<BASIC STATEMENT> ::= <GO TO STATEMENT> / 
<DUMMY STATEMENT> / <CASE STATEMENT> 
<GO TO STATEMENT> ::= GO <TO PART> <DESIGNATIONAL EXPRESSION> / 


GO <TO PART> <CASE HEAD> (<DESIGNATIONAL EXPRESSION LIST>) 
GO <TO PART> <WORD VARIABLE> 


<TO PART> ::= <EMPTY> / TO 

<DUMMY STATEMENT> ::= <EMPTY> / <DUMMY STATEMENT> <LABEL> 

CASE STATEMENT> ::= <CASE HEAD> <COMPOUND STATEMENT > 

<CASE HEAD> ::= CASE <ARITHMETIC EXPRESSIOND OF 

SEMANTICS: 

1. THE GO TO STATEMENT TRANSFERS CONTROL TO THE LABEL WHICH IS 
THE VALUE OF THE DESIGNATIONAL EXPRESSION OR THE DESIGNATIONAL 
EXPRESSION LIST. IF A <WORD VARIABLE> IS USED, IT IS PLACED 
IN THE TOP OF STACK AND AN UNCONDITIONAL DYNAMIC BRANCH IS 
EXECUTED. 

Qe. IN THE <CASE STATEMENT>, THE <ARITHMETIC EXPRESSION> IN THE 


<CASE HEAD> IS EVALUATED AND IS USED TO SELECT ONE OF THE 
STATEMENTS IN THE <COMPOUND STATEMENT> FOLLOWING THE <CASE 
HEAD>. THE SELECTED STATEMENT AND ONLY THE SELECTED STATEMENT 
WILL BE EXECUTED. 


THE STATEMENTS IN THE <COMPOUND STATEMENT> ARE NUMBERED 
STARTING WITH ZERO, AND THE <ARITHMETIC EXPRESSION> IN THE 
<CASE HEAD> IS INTERPRETED AS THE NUMBER OF THE STATEMENT TO 
BE EXECUTED. DUMMY STATEMENTS MAY BE USED TO ARRANGE 
CONVENIENT NUMBERING OF THE STATEMENTS. 


3. IF THE VALUE OF OF THE <ARITHMETIC EXPRESSION> IS GREATER THAN 
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THE NUMBER OF STATEMENTS. ANYTHING CAN HAPPEN. FOR PURPOSES 
OF EFFICIENCY, THE ESPOL COMPILER DOES NOT EMIT "RANGE 
CHECKING CODE" TO DETERMINE VALIDITY OF THE EVALUATED 
<ARITHMETIC EXPRESSIOND. 


EXAMPLES: 


GO TO START 
GO NEXT 
GO TO CASE ARITHEXP-1 OF (LABELI, NEXT, EXIT, START) 


DUMMY STATEMENTS: 


Li: 
EXIT: NEXT: 


CASE STATEMENT: 


CASE V OF BEGIN X+X+1;Z+Z+1 END 


CASE HEAD: 


CASE Z+QxV-B MOD 7 OF 
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8.4. CONDITIONAL AND UNCONDITIONAL ITERATION STATEMENTS 


<CONDITIONAL ITERATION> ::= <ITERATION CLAUSE> 
<CONDIV TIONAL STATEMENT> 
<UNCONDITIONAL ITERATION> ::= <DO STATEMENT> / 
<ITERATION CLAUSE> <UNCONDITIONAL STATEMENT > 
<DO STATEMENT> ::= DO <STATEMENT> UNTIL <BOOLEAN EXPRESSION> 
<ITERATION CLAUSE> ::= <WHILE PART> DO / <FOR CLAUSE> DO / 
<THRU CLAUSE> DO 
<WHILE PART> ::= WHILE <BOOLEAN EXPRESSION> 
<FOR CLAUSE> ::= FOR <CONTROLLED VARIABLE> 
<REPLACEMENT OPERATOR> <FOR PART> 
<CONTROLLED VARIABLE> ::= <SIMPLE VARIABLE? / 
<SUBSCRIPTED VARIABLE> 
<FOR PART> ::= <INITIAL PART> <STEP PART> <FINAL PART> 
<INITIAL PART> ::= <ARITHMETIC EXPRESSION>D 
<STEP PART> ::= STEP <ARITHMETIC EXPRESSION> / BY 
<ARITHMETIC EXPRESSION> 
<FINAL PART> ::= UNTIL <ARITHMETIC EXPRESSION> / “WHILE PART> 
<THRU CLAUSE> ::= THRU <ARITHMETIC EXPRESSION> 


SEMANTICS: 


ITERATION PROVIDES A MEANS OF FORMING LOOPS IN A PROGRAM. IF "BY 
<ARITHMETIC EXPRESSION>" [S USED INSTEAD OF "STEP <ARITHMETIC 
EXPRESSION>", THE LOOP WILL BE CONSTRUCTED USING THE STEP AND 
BRANCH OPERATOR TO OPTIMIZE EXECUTION TIME. 


THE <THRU CLAUSE> FORM OF ITERATION OPERATES AS FOLLOWS: THE 
<ARITHMETIC EXPRESSION> IS EVALUATED AND THE <STATEMENT> FOLLOWING 
"DO" EXECUTED THE NUMBER’ OF TIMES INDICATED BY THAT VALUE. THE 
HARDWARE OPERATOR WHICH IMPLEMENTS THIS FORM OF ITERATION RESTRICTS 
THE BINARY REPRESENTATION OF THE INTEGERIZED <ARITHMETIC 
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EXPRESSION> TO 16 BITS THUS THIS VALUE MUST LIE IN THE RANGE Q 
THROUGH 65,535. 


EXAMPLES: 


FOR V := Q@ STEP 1 UNTIL GONE DO 
FOR FIRST + 1 BY 1 UNTIL LAST DO 


WHILE PARTS: 


WHILE NOT A # C EQV GATE [1,2] 
WHILE TRUE 


FOR CLAUSES: 


FOR ATLST «= Jee STEP A. © Q © J=K UNTIL. FLA) 


CONTROLLED VARIABLES: 


X*2 STEP X“Y+FUNC(A)UNTIL X+Y MOD Q 


INITIAL PARTS: 


STEP 
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PARTS: 


STEP IF B =O THEN X ELSE Y+e 
BY e9 


PARTS: 


UNTIL X-7 
WHILE B>8 
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<EVENT STATEMENT> ::= <SET STATEMENT> / <RESET STATEMENT> / 
<CAUSE STATEMENT> / <CAUSEANDRESET STATEMENT> / 
<WAIT STATEMENT> / <WAITANDRESET STATEMENT> / 
<DSWAIT STATEMENT> / <DSWAITANDRESET STATEMENT) / 
<PROCURE STATEMENT> / <FIX STATEMENT> / 
<LIBERATE STATEMENT> / <FREE STATEMENT> 


<SET STATEMENT> ::= SET (<EVENT DESIGNATOR>) 

<RESET STATEMENT> ::= RESET (<EVENT DESIGNATOR>) 

<CAUSE STATEMENT> ::= CAUSE (<EVENT DESIGNATOR>) 
<CAUSEANDRESET STATEMENT> ::= CAUSENRESET (<EVENT DESIGNATOR>) 
CWAIT STATEMENT> ::= <WAITONEVENT STATEMENT? / 


CWAITTONTIME STATEMENT > 


<WAITONEVENT-SIMPLE STATEMENT> 


WAIT (€<EVENT DESIGNATOR) ) 


<WAITTONEVENT-COMPLEX STATEMENT> ::= WAIT (<WAIT PARAMETER LIST>) 
<WAIT PARAMETER LIST> ::= <EVENT LIST> / (<TIME>), “EVENT LIST> 
EVENT LIST> ::= <EVENT DESIGNATOR> / EVENT LIST>, 
<EVENT DESIGNATOR> 
<TIME> ::= £THE MINIMUM AMOUNT OF TIME IN SECONDS 
(FRACTIONAL SECONDS ALLOWED) THAT A TASK IS TO BE 
SUSPENDEDS 
<WAITTONTIME STATEMENT> ::= WAIT ((<TIME>)) 
<WAITTANDRESET STATEMENT> ::= <WAITANORESET-SIMPLE STATEMENT >/ 


Ww 
<WAITANDRESET-COMPLEX STA 
<WAITANDRESET-SIMPLE STATEMENT> ::= 
C<EVENT DESIGNATOR>) 


4 > 
m 
<< 
mm 
Zz 
= odo oO 
> Vv Ww 


<WATTANDRESET-COMPLEX STATEMENT> ::= WAITANDRESET 
(<WAIT PARAMETER LIST>) 
<DSWAIT STATEMENT> ::= <DSWAIT-SIMPLE STATEMENT) / 


<DSWAITT-COMPLEX STATEMENT> 


11 
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<DSWAIT-SIMPLE STATEMENT> ::= DSWAIT (“EVENT DESIGNATOR) ) 

<DSWAIT-COMPLEX STATEMENT> DSWAIT (<WAIT PARAMETER LIST>) 

<DSWAITANDRESET STATEMENT > <DSWAITANDRESET-SIMPLE STATEMENT? / 
<DSWAITANDRESET-COMPLEX STATEMENT > 


" 


<DSWAITANDRESET-SIMPLE STATEMENT> ::= DSWAITANDRESET 
(<EVENT DESIGNATOR) ) 

<DSWAITANDRESET-COMPLEX STATEMENT> ::= DSWAITANDRESET 
(<WAIT PARAMETER LIST)>) 

<PROCURE STATEMENT> ::= PROCURE (<EVENT DESTGNATOR> ) 

<FIX STATEMENT? ::= FIX (<EVENT DESIGNATOR) ) 

<LIBERATE STATEMENT> ::= LIBERATE (<EVENT DESIGNATOR> ) 

<FREE STATEMENT> ::= FREE (<EVENT DESIGNATOR) ) 

SEMANTICS: 


AN EVENT HAS TWO PROPERTIES, EACH PROPERTY HAVING TWO STATES. THE 
CONDITION-ORIENTED PROPERTY HAS EITHER A HAPPENED OR NOT HAPPENED 
STATE, AND THE RESOURCE-ORIENTED PROPERTY HAS EITHER AN AVAILABLE 
OR NOT AVAILABLE STATE. THE INITIAL STATE OF EACH PROPERTY IS NOT 
HAPPENED AND AVAILABLE. ASSOCIATED WITH EACH PROPERTY ARE 
STATEMENTS WHICH MAY BE’ USED TO CONTROL AND/OR INTERROGATE THE 
STATE OF THE PROPERTY. 


THE <SET STATEMENT> WILL SET AN EVENT TO THE HAPPENED STATE. IT 
WILL NOT CAUSE ANY OTHER ACTION, I.E. THE <SET STATEMENT> WILL NOT 
ACTIVATE A TASK WAITING ON THE EVENT. 


THE <RESET STATEMENT> WILL RESET AN EVENT TO THE NOT HAPPENED STATE 
IT WILL NOT CAUSE ANY OTHER ACTION. 


THE <CAUSE STATEMENT> WILL ACTIVATE ALL TASKS WHICH ARE WAITING ON 
THE EVENT. NORMALLY THE CAUSE WILL ALSO SET THE EVENT TO THE 
HAPPENED STATE. (SEE THE <WAITTANDRESET STATEMENT> FOR EXCEPTIONS}. 


1T MUST BE POINTED OUT THAT ACTIVATING A TASK DOES NOT IMPLY THE 
TASK GOES INTO IMMEDIATE EXECUTION. ACTIVATING A TASK CONSISTS OF 
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DELINKING THE TASK FROM AN EVENT QUEUE (EACH EVENT HAS ITS OWN 
QUEUE), AND LINKING THAT TASK IN PRIORITY ORDER INTO A SYSTEM QUEUE 
CALLED THE READYQ. THE READYQ IS A QUEUE OF ALL TASKS, IN PRIORITY 
ORDER, THAT ARE CAPABLE OF RUNNING. TASKS ARE TAKEN OUT OF THE 
READYQ WHEN EITHER A PROCESSOR IS ASSIGNED TO THE TASK, OR THE TASK 
MUST WAIT FOR SOMETHING SUCH AS AN [70 OPERATION OR AN EVENT TO BE 
CAUSED. A TASK WILL ONLY BE PLACED INTO ACTUAL EXECUTION WHEN IT 
IS THE TOP ITEM IN THE READYQ AND A PROCESSOR IS AVAILABLE. 


THE <CAUSEANDRESET STATEMENT> IS SIMILAR TO THE <CAUSE STATEMENT> 
IN THAT IT ACTIVATES ALL TASKS WAITING ON THE EVENT. IT VARIES 
FROM THE <CAUSE STATEMENT> IN THAT THE RESULTANT STATE OF THE EVENT 
IS SET TO NOT HAPPENED. 


FOR THE <WAITTONEVENT STATEMENT>, THE HAPPENED STATE OF THE EVENT IS 
EXAMINED. IF THE EVENT STATE IS HAPPENED, THE STATEMENT IS 
ESSENTIALLY A "NO-OPERATION". IF THE EVENT STATE IS NOT HAPPENED, 
THE TASK WILL BE SUSPENDED UNTIL SUCH TIME SOME OTHER TASK EXECUTES 
A <CAUSE STATEMENT). 


THE <WAIT STATEMENT> ALLOWS FOR SUSPENDING A TASK EITHER FOR A TIME 
PERIOD OR UNTIL AN EVENT IS CAUSED. 


FOR THE <WAITONTIME STATEMENT>, THE TIME FUNCTION GENERATES AN 
IMPLICIT EVENT WHICH IT WAITS ON. THIS EVENT IS CAUSED BY THE 
OPERATING SYSTEM WHEN IT DETECTS THE TIME PERIOD SPECIFIED BY 
<TIME> HAS ELAPSED. IT MIGHT BE NOTED THAT DEPENDING ON THE DEGREE 
OF MULTIPROCESSING BEING PERFORMED AND PROGRAM PRIORITIES, THE 
ACTUAL TIME A TASK IS SUSPENDED FOR <TIME> MAY VARY WIDELY IN 
RESPECT TO THE TIME INDICATED IN <TIME> WITH SMALLER INCREMENTS OF 
TIME HAVING THE GREATEST VARIATION. 


THE <WAITANDRESET STATEMENT> ALLOWS FOR SUSPENDING A TASK UNTIL THE 
EVENT IS CAUSED. IT IS IDENTICAL TO THE <WAIT STATEMENT> EXCEPT 
THAT THE EVENT IS FORCED TO THE STATE NOT HAPPENED DURING THE 
SUBSEQUENT CAUSE PROCESSES. 
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THE <WAITONEVENT STATEMENT> AND <WAITANDRESET STATEMENT> ARE 
IDENTICAL EXCEPT FOR THE STATE TO WHICH THE CAUSED EVENT IS SET 
DURING THE CAUSE PROCESS. IF ALL TASKS ARE WAITING ON THE EVENT 
VIA THE <WAITONEVENT STATEMENT> (SIMPLE OR COMPLEX), THE STATE OF 
THE EVENT IS SET TO HAPPENED. IF ANY ONE TASK IS WAITING ON THE 
EVENT VIA THE <WAITANDRESET STATEMENT>, THE STATE OF THE EVENT IS 
RESET TO NOT HAPPENED. 


THE <WAITONEVENT-COMPLEX STATEMENT> ALLOWS A TASK TO BE SUSPENDED 
UNTIL ANY ONE EVENT IN THE <EVENT LIST> IS CAUSED OR UNTIL THE TIME 
AS INDICATED BY <TIME> HAS ELAPSED. THE <WAITONEVENT-COMPLEX 
STATEMENT> MAY BE USED AS AN INTEGER FUNCTION WHICH RETURNS A VALUE 
(STARTING AT 1) WHICH REPRESENTS THE POSITION IN THE <WAIT 
PARAMETER LIST> OF THE PARAMETER WHICH CAUSED THE TASK TO BE 
ACTIVATED. FOR EXAMPLE, IN THE STATEMENT: 


T ::= WAIT (¢(.0001), E£1,E2) 


THE VALUE OF T WOULD BE 1 IF ELAPSED TIME CAUSED THE TASK TO BE 
ACTIVATED, WHILE IN THE EXAMPLE: 


T ::= WAIT CE1, Ee, ES) 
THE VALUE OF T WOULD BE @ IF A CAUSE ON EVENT Ee ACTIVATED THE TASK 


IT MIGHT BE NOTED THAT THE IMPLEMENTATION OF THIS MECHANISM 
CONTAINS INTERLOCKS TO GUARANTEE THAT ONE AND ONLY ONE PARAMETER 
CAN ACTIVATE A TASK. 


IF TIME IS INCLUDED AS A PARAMETER, IT MUST THE FIRST PARAMETER IN 
THE LIST (AND ENCLOSED IN PARENTHESES). 


THERE EXIST SOME SITUATIONS WHEREBY CERTAIN OPERATING SYSTEM 
FUNCTIONS CANNOT BE TERMINATED WHILE WAITING GN AN EVENT, SUCH AS 
WHILE WAITING FOR AN [1/0 COMPLETE. FOR THIS REASON, A REQUEST TO 
TERMINATE A SYSTEM FUNCTION WHICH IS IN TURN WAITING ON AN EVENT 
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WILL NOT BE HONORED. HOWEVER, THERE ARE OTHER OPERATING SYSTEM 
FUNCTIONS FOR WHICH NO SYSTEM PROBLEM OCCURS IF THEY ARE TERMINATED 
WHILE WAITING ON EVENT. FOR THESE FUNCTIONS, THE <DSWAIT 


STATEMENT> MAY BE USED. 


TERMINATION OF OPERATING SYSTEM FUNCTIONS IS SOMEWHAT DIFFERENT 
THAN FOR OBJECT TASKS. FIRST OF ALL, AN INTERLOCK IS SET SO THAT 
CONTROL CANNOT RETURN TO THE OBJECT PROGRAM WHICH CALLED THE SYSTEM 
FUNCTION. THE SYSTEM FUNCTION THEN IS ACTIVATED AS IF THE EVENT 
HAD BEEN CAUSED. MEANS EXIST WHEREBY A SYSTEM FUNCTION CAN 
DETERMINE IF IT WAS ACTIVATED BY A CAUSE OF AN EVENT OR BY A 
TERMINATE REQUEST ("DS"). 


THE <DSWAIT-COMPLEX STATEMENT> IS SIMILAR TO THE <DSWAIT~SIMPLE 
STATEMENT> IN THAT IT ALLOWS A’ TERMINATE REQUEST AGAINST AN 
OPERATING SYSTEM FUNCTION TO BE HONORED. IT IS SIMILAR ALSO TO THE 
<WATTONEVENT-COMPLEX STATEMENT> IN THAT IT ALLOWS SUSPENSION FOR A 


SPECIFIED AMOUNT OF TIME OR FOR A CAUSE OF ANY ONE OF A LIST OF 
EVENTS. IT RETURNS AN INTEGER SIMILAR TO THE <WAITONEVENT-COMPLEX 
STATEMENT> EXCEPT THAT A ZERO (0) IS RETURNED IF THE FUNCTION WAS 


ACTIVATED DUE TO A TERMINAL REQUEST. 


BY THIS TIME THE READER MAY BE CONCERNED AS TO SETTING OF THE 
HAPPENED STATE OF AN EVENT JUST AFTER AN EVENT IS CAUSED. 
ESSENTIALLY, ANY ONE TASK WAITING ON THE EVENT VIA’ THE 
<WAITANDRESET STATEMENT> OR THE EVENT CONTROL TASK EXECUTING A 
<CAUSEANDRESET STATEMENT> WILL RESULT IN THE STATE NOT HAPPENED. 
ALL TASKS MUST BE WAITING USING THE <WAIT STATEMENT> AND THE EVENT 
CONTROL TASK MUST USE THE <CAUSE STATEMENT> IN ORDER FOR THE EVENT 
TO HAVE THE HAPPENED STATE IMMEDIATELY AFTER THE CAUSE PROCESS. 
FOR THIS REASON, EXTREME CARE MUST BE TAKEN WHEN USING THESE 
STATEMENTS. AS A GUIDE TO THE PROPER USE QF THE WAIT, 
WAITANDRESET, CAUSE, AND CAUSEANDRESET STATEMENTS, CONSIDER THERE 
ARE TWO TYPES OF CONDITIONS, MOMENTARY AND ELAPSED. 


A MOMENTARY CONDITION CAN BE DEFINED AS A CONDITION WHICH CAN EXIST 
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FOR ONLY AN INSTANT. THE RESET OPTIONS OF CAUSE AND WAIT 
STATEMENTS ALLOW THE IMPLEMENTATION OF MOMENTARY CONDITIONS. FOR 
THE SITUATION WHERE AN EVENT CONTROL TASK (THE ONE CAUSING THE 
EVENT) SOLELY DETERMINES THE CONDITION, THE DEPENDENT STACKS (THOSE 
WAITING) SHOULD USE THE <WAIT STATEMENT> WHILE THE EVENT CONTROL 
STACK SHOULD USE THE <CAUSEANDRESET STATEMENT>. 


FOR THE CASE WHERE THE ACT OF A TASK BEING ACTIVATED MEANS THE 
CONDITION IS TO DISAPPEAR, THE DEPENDENT TASK SHOULD USE THE 
<WAITANDRESET STATEMENT> WHILE THE EVENT CONTROL TASK SHOULD USE 
THE <CAUSE STATEMENT>. ONE SHOULD AVOID MIXING WAIT, WAITANDRESET, 
CAUSE AND CAUSEANDRESET ALL ON THE SAME EVENT. THE RESULTANT 
CONFUSION OVER THE HAPPENED STATE OF THE EVENT CAN CAUSE A 
CONSIDERABLE PROBLEM. 


AN ELAPSED CONDITION CAN BE DEFINED AS A CONDITION WHICH HOLDS OVER 
A LONG PERIOD. TO IMPLEMENT THIS TYPE OF CONDITION, ONE SHOULD USE 
ONLY THE WAIT, CAUSE, AND RESET STATEMENTS. 


THE SECOND PROPERTY OF AN EVENT IS THE RESOURCE-ORIENTED PROPERTY. 
ONE CAN CONSIDER A RESOURCE AS SOMETHING WHICH CAN BE UTILIZED BY 
SEVERAL TASKS BUT ONLY ONE TASK AT A TIME. FOR EXAMPLE, LET US 
CONSIDER A COMPLEX LIST STRUCTURE BUILT INTO AN ARRAY AS A RESOURCE 
LET US ALSO ASSUME THAT THERE EXISTS A TASK WHICH ADDS DATA TO THE 
LIST STRUCTURE AND ANOTHER TASK WHICH DELETES FROM THE LIST 
STRUCTURE WE ALSO ASSUME THAT BOTH TASKS RUNNING SIMULTANEOUSLY 
COULD DESTROY THE LIST STRUCTURE. IT IS NECESSARY TO LET EITHER 
TASK RUN AT ANY TIME BUT NOT SIMULTANEOUSLY. THIS TYPE OF CONTROL 
CAN BE DONE VIA THE RESOURCE-ORIENTED PROPERTIES OF AN EVENT AND 
THE RESOURCE-ORIENTED STATEMENTS. 


THE <PROCURE STATEMENT> TESTS THE AVAILABLE STATE OF AN EVENT. IF 
THE EVENT IS NOT AVAILABLE, THE EVENT STATE IS SET TO NOT AVAILABLE 


AND THE TASK CONTINUES IN SEQUENCE. 


THE <FIX STATEMENT> (ALSO REFERRED TO AS A CONDITIONAL PROCURE 
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FUNCTION) IS A BOOLEAN FUNCTION WHICH EXAMINES THE AVAILABLE STATE 
OF AN EVENT. IF THE STATE IS AVAILABLE, THE EVENT IS PROCURED 
(SETS STATE TO NOT AVIALBLE) AND A "TRUE" IS RETURNED. IF THE 
AVAILABLE STATE WAS NOT AVAILABLE, THE FUNCTION RETURNS A "FALSE", 
LEAVING THE AVAILABLE STATE UNCHANGED. 


THE <LIBERATE STATEMENT> WHEN EXECUTED, PRODUCES SEVERAL EFFECTS: 


A. FIRST OF ALL, THE PROCURE LIST IS EXAMINED. 


1. IF THERE ARE NO OTHER TASKS WAITING TO PROCURE THE THE 
EVENT, THE EVENT STATE IS SET TO AVAILABLE. 


oa TF THERE ARE OTHER TASKS WAITING TO PROCURE THE EVENT, 

THE LAST TASK (THE IMPLEMENTATION IS LAST IN-FIRST OUT) 

IS ACTIVATED. THE EVENT STATE IS LEFT MARKED AS NOT 
AVAILABLE. 

B. LASTLY, ALL TASKS WAITING ON THE EVENT ARE ACTIVATED (CAN 


IMPLICIT CAUSE IS EXECUTED). THIS MAY RESULT IN A CHANGE TO 
THE HAPPENED STATE OF THE EVENT DEPENDING ON WHETHER THE TASKS 
WHICH WERE WAITING USED THE <WAITONEVENT STATEMENT> OR 
<WAITTANDRESET STATEMENT>. 


THE <FREE STATEMENT> (OF ARBITRARY VALUE AND DANGEROUS USE) IS A 
BOOLEAN FUNCTION WHICH EXAMINES THE AVAILABLILITY STATE OF AN EVENT 
IT RETURNS A "TRUE" IF THE EVENT IS AVATLABLE AND A "FALSE" IF THE 
NT IS NOT AVAILABLE. IN ADDITION, IT WILL RESET THE EVENT STATE 
ONDITIONALLY TO AVAILABLE BUT WILL NOT ACTIVATE ANY TASK 
SUSPENDED BY AN ATTEMPT TO PROCURE THE EVENT NOR WILL IT ACTIVATE 
ANY TASK WAITING ON THE EVENT. 


B6700/B87700 ESPOL 


8.6. FORK STATEMENT 


SYNTAX: 

<FORK STATEMENT> ::= FORK <PROCEDURE STATEMENT> [<FORK PARAMETERS> ] 
<FORK PARAMETERS> ::= <STACK SIZE>, <PRIORITY> <VISIBLE NAME INDEX> 
<STACK SIZE> ::= <ARITHMETIC EXPRESSION> 

<PRIORITY> ::= <ARITHMETIC EXPRESSION> 

<VISIBLE NAME INDEX> ::= <EMPTY> / , <ARITHMETIC EXPRESSION> 
SEMANTICS: 


THE <FORK STATEMENT> PROVIDES THE MEANS OF INITIATING "INDEPENDENT 
RUNNERS" WITHIN THE MCP. 


THE PROCEDURE REFERENCED MAY BE TYPED OR UNTYPED. IT MAY NOT BE 
FORMAL OR DYNAMIC. IF TYPED, THE VALUE IS LOST. 


IF THERE ARE ACTUAL PARAMETERS, THEY MUST AGREE IN NUMBER AND TYPE 
WITH THE FORMAL PARAMETERS SPECIFIED FOR THE PROCEDURE. 


THERE MAY BE TWO OR THREE <FORK PARAMETERS>. THE FIRST TWO SPECIFY 
THE STACK SIZE AND PRIORITY RESPECTIVELY, OF THE INITIATED PROCESS. 


THE THIRD FORK PARAMETER, IF PRESENT, IS A CHARACTER INDEX INTO AN 
ARRAY OF INDEPENDENT RUNNER NAMES ("INDEPRUNNERNAMES"). A NON-ZERO 
VALUE INDICATES THE SPECIFIED NAME SHOULD BE DISPLAYED ON THE SPO 
WITH “BOJ" AND "EOQJU" MESSAGES. AN <EMPTY> OR ZERO VALUE INDICATES 
SPO MESSAGES ARE NOT TO BE DISPLAYED. 


EXAMPLES: 
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CIRMAXSTACKSIZE, 


IRTOPPRIORITY, 


LIEBNAME ] 


19 


8- 20 
B6700/B7700 ESPOL 


8.7. 1/0 STATEMENTS 


<1/0 STATEMENT> ::= <CLOSE STATEMENT> / <LOCK STATEMENT> / 
<READ STATEMENT> / “REWIND STATEMENT> / <SEEK STATEMENTD / 
<SPACE STATEMENT> / “WRITE STATEMENT> 


SEMANTICS: 


INPUT/OUTPUT STATEMENTS CAUSE INFORMATION TO BE EXCHANGED BETWEEN 
MEMORY AREAS AND PERIPHERAL DEVICES, OR ALLOW THE USER TO PERFORM 
CERTAIN CONTROL FUNCTIONS. THE USER ASSUMES RESPONSIBILITY FOR 
HANDLING IRRECOVERABLE ERROR CONDITIONS (1.€., THE MCP 1/0 

ROUTINES WILL TRY NORMAL AND APPROPRIATE ERROR RECOVERY; IF THESE 
FAIL, THE USER IS THEN RESPONSIBLE FOR THE SUBSEQUENT COURSE. OF 
ACTION). 


EXCEPTION CONDITIONS OCCURRING DURING A “READ", "WRITE", OR "SPACE" 
STATEMENT MAY BE HANDLED BY USING THE I/0 RESULT WORD RETURNED BY 
THE 1/70 ROUTINES AS A <BOOLEAN PRIMARY>. 


EXAMPLES: 
IF BOOLVAR := READ(FILEID, 14, AL*]) THEN GO TO ERRORCOND; 
BRSLT := WRITE (FYLE, AMOUNT, PID) 


THIS METHOD MAY NOT BE USED FOR DIRECT 1/0 STATEMENTS. IF AN 
EXCEPTION CONDITION OCCURS DURING A "READ", "WRITE", OR "SPACE" 
STATEMENT, BIT ZERO OF THE I1/0 RESULT WORD WILL BE 1. IF NO 
EXCEPTION CONDITION OCCURS THAT BIT WILL BE (ZERO) O. IF BIT ZERO 
1S 1 THEN ONE OF THE FOLLOWING BITS WILL ALSO BE 1: 
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BIT 9 INDICATING ON END-OF-FILE CONDITION; 
BIT 7 INDICATING A PARITY ERROR OR 
BIT 4 INDICATING A DATA ERROR. 


IF THE “READ", "WRITE", OR "SPACE" STATMENT IS NOT USED AS AN 
EXPRESSION, THE COMPILER GENERATES A DELETE OPERATOR TO DISPOSE OF 
THE I/O RESULT WORD. 


EXAMPLES: 


READ ( . . . ) 
REWIND ( . . . } 
SEEK ( . . . ) 
SPACE (... } 
WRITE € 2. 2.) 
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8.7.1. CLOSE STATEMENT 


SYNTAX: 

<CLOSE STATEMENT> ::= CLOSE (¢ <FILE DESIGNATOR> ) / 
CLOSE ( <FILE DESIGNATOR> , <CLOSE OPTION> ) 

<CLOSE OPTION> ::= * / PURGE / REEL 

SEMANTICS: 


THE <CLOSE STATEMENT> WITH NO <CLOSE OPTION> CAUSES THE REFERENCED 
FILE TO BE CLOSED. THE FOLLOWING ACTIONS TAKE PLACE: 


1. ON A CARD PUNCH FILE, A CARD CONTAINING AN ENDING LABEL 
1S PUNCHED. 
2. ON A LINE PRINTER FILE, THE PRINTER IS SKIPPED TO CHANNEL 


1, AN ENDING LABEL IS PRINTED, AND THE PRINTER IS AGAIN 
SKIPPED TO CHANNEL 1. 


3S. ON AN UNLABELED TAPE OUTPUT FILE, A DOUBLE TAPE MARK IS 
WRITTEN AFTER THE LAST BLOCK ON TAPE. 


4. ON A LABELED TAPE OUTPUT FILE, A TAPE MARK IS WRITTEN 
AFTER THE LAST BLOCK ON THE TAPE THEN AN ENDING LABEL IS 
WRITTEN, FOLLOWED BY A DOUBLE TAPE MARK. 


De ON A DISK FILE, IF THE FILE IS A TEMPORARY FILE, THE DISK 
SPACE IS RETURNED. 


FOR ALL TYPES OF FILES, THE BUFFER AREAS ARE RETURNED TO THE SYSTEM 


- ee 
\ 


IF ONLY THE <FILE DESIGNA 


OR> 1S USED, THE I/ 
THE SYSTEM. LE HEP PLE. “ES: A 


6 
TAPES FILES. THE TA 
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IF "PURGE" IS USED, THE FILE IS CLOSED, PURGED, AND RELEASED TO THE 
SYSTEM. IF THE FILE IS A PERMANENT DISK FILE, IT IS REMOVED FROM 
THE DISK DIRECTORY AND THE DISK SPACE IS RETURNED. 


IF THE SYMBOL "*" IS USED, THE FILE MUST BE A TAPE FILE. THE I/0 
UNIT REMAINS UNDER PROGRAM CONTROL AND THE TAPE IS NOT REWOUND. 
THIS CONSTRUCT IS USED TO CREATE MULTI-FILE REELS. 


WHEN THE SYMBOL "*" IS USED ON MULTI-FILE INPUT TAPES, THE 
FOLLOWING ACTIONS CAN TAKE PLACE: IF THE VALUE OF THE ATTRIBUTE 
"DIRECTION" IS "FORWARD", THE TAPE IS POSITIONED FORWARD TO A POINT 
JUST FOLLOWING THE ENDING LABEL OF THE FILE; IF THE VALUE OF THE 
ATTRIBUTE “DIRECTION” IS "REVERSE", THE TAPE IS POSITIONED TO A 
POINT JUST IN FRONT OF THE BEGINNING LABEL FOR THE FILE; IF THE 
END-OF-FILE BRANCH HAS BEEN TAKEN, NO ACTION IS PERFORMED TO 
POSITION THE FILE. ON A SINGLE-FILE REEL, THE ACTION TAKEN IS THE 


1! 
SAME AS FOR A ™M 


TTL 


i 


HE NEXT REFERENCE TO THIS FILE 
DIRECTION FROM THAT OF THE PRIOR 
L 


T WORD WILL BE RETURNED. 


MUST BE "READ" IN 
"READ" ON THE FILE OR AN ERROR R 


IF “REEL" IS USED, THE FILE MUST BE A MULTI-REEL TAPE FILE. THE 
CURRENT REEL WILL BE. CLOSED AND A SUBSEQUENT REFERENCE OF THE FILE 
WILL IMPLICITLY OPEN THE NEXT REEL. THIS IS PROVIDED PRIMARILY FOR 
THE USE OF DIRECT TAPE FILES, WHERE THE SYSTEM DOES NOT 
AUTOMATICALLY PERFORM REEL SWITCHING. 


EXAMPLES: 


CLOSE (FYLE) 

CLOSE (FID, *) 

CLOSE (LINES, PURGE) 
CLOSE (FYLE, REEL) 
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Beare s LOCK STATEMENT 


<LOCK STATEMENT> ::= LOCK ( <FILE DESIGNATOR> ) / 
LOCK (<FILE DESIGNATOR>, *) 


SEMANTICS: 


THE <LOCK STATEMENT> CAUSES THE REFERENCED FILE TO BE CLOSED. IF 
THE FILE IS TAPE, IT IS REWOUND AND A SYSTEM MESSAGE IS PRINTED TO 
NOTIFY THE OPERATOR TO REMOVE THE REEL AND SAVE IT. IF THE FILE IS 
NOT A OISK FILE, THE UNIT IS MADE INACCESSIBLE TO THE SYSTEM UNTIL 
THE OPERATOR RESETS IT AGAIN MANUALLY. IF THE FILE 1S A DISK FILE, 
IT IS RETAINED AS A PERMANENT FILE ON DISK. THE FILE BUFFER AREAS 
ARE RETURNED TO THE SYSTEM. 


THE "LOCK ( <FILE DESIGNATOR> , * )" CONSTRUCT CAUSES AN ADJUSTMENT 
‘OF THE BLOCKING OF A DISK FILE TO ELIMINATE UNUSED SPACE IN THE 
DISK AREAS ALLOCATED FOR THE FILE. AS A RESULT OF THE ADJUSTMENT 
OF THE NUMBER AND SIZE OF PHYSICAL AREAS ON THE DISK, THE 
"“CRUNCHED" FILE MAY NOT BE EXPANDED WITHOUT BEING COPIED INTO A NEW 
FILE. 


EXAMPLES: 


LOCK (FILEA) 
LOCK (FILE, *) 
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8.7.3. READ STATEMENT 


SYNTAX: 
<READ STATEMENT> ::= READ (<FILE PART>, <WORD COUNT>, 
<I170 AREA>) <1I/0 FINISH EVENT> 
<FILE PART> ::= <FILE DESIGNATOR> / 
<FILE DESIGNATOR> <RECORD NUMBER OR CARRIAGE CONTROL > 
<RECORD NUMBER OR CARRIAGE CONTROL> ::= [<ARITHMETIC EXPRESSION>] / 


[LINE <ARITHMETIC EXPRESSION>] / [SPACE 
<ARITHMETIC EXPRESSION>] / [SKIP <ARITHMETIC EXPRESSION>] / 
[STACKER <ARITHMETIC EXPRESSION>] / [NO] 
<1/0 AREA> ::= <ARRAY ROW> / <POINTER EXPRESSIOND / 
<SUBSCRIPTED VARIABLE> 
<1/0 FINISH EVENT> ::= <EMPTY> / [<EVENT DESIGNATOR>] 


SEMANTICS: 


THE <READ STATEMENT> CAUSES DATA TO BE TRANSFERRED FROM A 
PERIPHERAL DEVICE TO AN <1/0 AREA>. THE INPUT DATA IS PROCESSED AS 
FULL WORDS AND IS ASSIGNED TO THE ELEMENTS OF THE SPECIFIED ARRAY 
WITHOUT EDITTING. 


EXAMPLES: 


READ (FILEID, 14, POINTERID); 
BOOLVAR := READ (FILEID, WORDCOUNT, AL*]); 
READ (FILEID, AMOUNT, ARRAYID) [COMPLETE] 


<FILE PART> INDICATES WHERE THE DATA IS TO BE FOUND. 


IF <RECORD NUMBER OR CARRIAGE CONTROL> IS. AN <ARITHMETIC 
EXPRESSION>, ITS VALUE INDICATES THE RELATIVE ADDRESS OF THE RECORD 
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IN A FILE WHICH IS TO BE READ. THE RECORD POINTER IS SET TO THE 
SPECIFIED ADDRESS BEFORE THE "READ" IS PERFORMED. IF AN ADDRESS IS 
INDICATED AND THE FILE IS A RANDOM ACCESS FILE, THE RECORD POINTER 
1S NOT ADJUSTED AFTER THE READ. 


IF THE <RECORD NUMBER OR CARRIAGE CONTROL> IS [NO], THE FILES 
BUFFER IS NOT RELEASED AFTER IT HAS BEEN READ. 


IF THE <RECORD NUMBER OR CARRIAGE CONTROL> IS <EMPTY>, THE RECORD 
INDICATED BY THE RECORD POINTER IS READ. IF THE FILE 1S SERIAL, 
THE RECORD POINTER IS ADJUSTED TO POINT TO THE NEXT RECORD IN THE 
FILE. 


IF THE <RECORD NUMBER OR CARRIAGE CONTROL> IS "“[SPACE <ARITHMETIC 
EXPRESSION>]" THE NUMBER OF RECORDS SPECIFIED IN <ARITHMETIC 


EXPRESSION> IS SKIPPED. SPACING IS FORWARD IF THE “ARITHMETIC 
EXPRESSION> IS POSITIVE; BACKWARD IF NEGATIVE. 


THE NUMBER OF WORDS READ IS THE SMALLEST OF: 


A. THE NUMBER OF ELEMENTS IN THE <ARRAY ROW>, OR ITEM 
REFERENCED BY THE <POINTER EXPRESSION>, 


B. THE MAXIMUM RECORD LENGTH ("MAXRECSIZE"), 


Cy. THE ABSOLUTE VALUE OF THE <WORD COUNT>. 


(NOTE THAT IF THE UNITS ATTRIBUTE=1, AND INTMODE # 0, THEN ALL 
COUNTS REPRESENT CHARACTERS, NOT WORDS.) 


THE "L<EVENT DESIGNATOR>]" FORM OF <1/0 FINISH EVENT> MAY BE USED 
ONLY FOR DIRECT 1/0; THE EVENT IS CAUSED WHEN THE I/0 OPERATION IS 
FINISHED. 
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8.7.4. REWIND STATEMENT 


<REWIND STATEMENT> ::= REWIND ( <FILE DESIGNATOR> ) 


SEMANTICS: 


THE <REWIND STATEMENT> CAUSES THE REFERENCED FILE TO BE CLOSED. IF 
THE FILE IS A PAPER TAPE OR MAGNETIC TAPE FILE, IT IS REWOUND. FOR 
DISK FILES, THE RECORD POINTER IS RESET TO THE FIRST RECORD OF THE 
FILE. THE 1/0 UNIT WILL REMAIN UNDER PROGRAM CONTROL. 


EXAMPLES: 


REWIND (FILEA) 


RESTRICTION: 


ON PAPER TAPE FILES, THE <REWIND STATEMENT? MAY BE USED ONLY ON 
INPUT, 
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8.7.5. SEEK STATEMENT 


SYNTAX: 

<SEEK STATEMENT> ::= SEEK (<FILE DESIGNATOR> [<RECORD NUMBER> 1) 
SRECORD NUMBER> ::= <ARITHMETIC EXPRESSION>D 

SEMANTICS: 


THE <SEEK STATEMENT> 1S USED WITH DISK FILES. IT PROVIDES THE 
MEANS BY WHICH A FILE"S BUFFER MAY BE FILLED IN ADVANCE OF AN 
ANTICIPATED READ OR WRITE ON THE RECORD TO WHICH <RECORD NUMBER> 
POINTS. 


THE <FILE DESIGNATOR> MUST NOT BE A DIRECT FILE. 


EXAMPLES: 


ee ee ee ee 


SEEK (FILEA [X+2*¥]) 
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8.7.6. SPACE STATEMENT 


<SPACE STATEMENT> ::= SPACE ( <FILE DESIGNATOR>, 
<ARITHMETIC EXPRESSION> ) 


SEMANTICS: 


THE <SPACE STATEMENT> IS USED TO BYPASS INPUT RECORDS WITHOUT 
READING THEM. THE VALUE OF THE <ARITHMETIC EXPRESSIOND DETERMINES 
THE NUMBER OF RECORDS TO BE SPACED AND THE DIRECTION OF THE SPACING 
TF THE <ARITHMETIC EXPRESSION> IS POSITIVE, THE RECORDS ARE SPACED 
IN A FORWARD DIRECTION; IF NEGATIVE, IN THE REVERSE DIRECTION. 


SPACE (FID, 1) 
BOOLVAR := SPACE (FYLE, - RECS) 
SPACE (LINE, LINES - PAGEINX) 
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8.7.7. WRITE STATEMENT 


—_—_e ee ae ee ~— eee ewe eee 


<WRITE STATEMENT> ::= WRITE (<FILE PART>, <WORD COUNT>, <1/0 AREA> ) 
<1/0 FINISH EVENT> 


SEMANTICS: 


THE <WRITE STATEMENT> CAUSES DATA TO BE TRANSFERRED FROM AN <1/0 
AREA> TO A PERIPHERAL DEVICE. THE OUTPUT DATA IS PROCESSED AS FULL 
WORDS AND IS WRITTEN WITHOUT EDITTING. 


<FILE PART> INDICATES WHERE THE: DATA IS TO BE WRITTEN. 


IF <RECORD NUMBER OR CARRIAGE CONTROL> IS "CLINE <ARITHMETIC 
‘EXPRESSION>]" AND THE FILE IS A LINE PRINTER FILE, THEN THE PRINTER 
WILL SKIP FORWARD TO THE SPECIFIED LINE BEFORE PRINTING. HOWEVER, 
THE FOLLOWING MUST BE OBSERVED: 


1) THE PAGESIZE FILE ATTRIBUTE MUST BE SET TO THE NUMBER OF 
LINES ON A PAGE. 


2) SINCE NORMAL DEFAULT ACTION FOR ALGOL IS PRINT BEFORE 
CARRIAGE ACTION, A SUBSEQUENT WRITE MAY OVERPRINT THE 
LINE. 


3) THE LINE NUMBER IS NOT RESET WHEN [SKIP 11 IS USED SINCE 
THIS DOES NOT NECESSARILY EJECT A PAGE. IN THIS CASE, 
THE USER MUST RESET THE LINENUMBER ATTRIBUTE. 


“LSPACE <ARITHMETIC EXPRESSION> 1" CAUSES THE LINEPRINTER TO SPACE 
THE NUMBER OF LINES DENOTED BY THE <ARITHMETIC EXPRESSION> AFTER 
PRINTING THE CURRENT RECORD. ON OTHER TYPES OF DEVICES IT CAUSES 
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THE NUMBER OF RECORDS SIGNIFIED BY THE <ARITHMETIC EXPRESSIOND To 
BE SPACED. "CSKIP <ARITHMETIC EXPRESSION>]" CAUSES THE LINEPRINTER 
TO SKIP TO THE CHANNEL INDICATED BY THE <ARITHMETIC EXPRESSIOND. 
AFTER PRINTING THE CURRENT RECORD. 


IF THE FILE IS NOT A PRINTER FILE, <RECORD NUMBER OR CARRIAGE 
CONTROL> IS INTERPRETED AS A RECORD NUMBER AS DESCRIBED UNDER <READ 
STATEMENT>. 


IF THE <RECORD NUMBER OR CARRIAGE CONTROL? IS "[STACKER <ARITHMETIC 
EXPRESSTON>]", THE PRIMARY (NORMAL) STACKER IS CHOSEN WITH A VALUE 
OF ZERO (0), AND THE ALTERNATE (AUXILLIARY) STACKER IS CHOSEN WITH 
A VALUE OF ONE (1). 


THE NUMBER OF WORDS WRITTEN IS THE SMALLEST OF: 


Ae THE ‘NUMBER  OF-- ELEMENTS 
POINTE 


REFERENCED BY THE < 


vow 


HE <ARRAY ROW> OR ITEM 
= ; 


iss] 


THE MAXIMUM RECORD LENGTH ("MAXRECSIZE"), 


Cc. THE ABSOLUTE VALUE OF THE <WORD COUNT>. 


WHEN UNBLOCKED RECORDS ARE BEING USED, THE BUFFER SIZE IS THE 


MAXIMUM RECORD LENGTH. (NOTE THAT IF THE UNITS ATTRIBUTE=1, AND 
INTMODE # 0, THEN ALL COUNTS REPRESENT CHARACTERS NOT WORDS.) 


DIRECT I/0 BRINGS THE USER CLOSER TO THE ACTUAL INPUT/OUTPUT 
OPERATION. ESSENTIALLY IT PERMITS 1/0 OPERATIONS TO BE PERFORMED 
ASYNCHRONOUSLY - IN PARALLEL WITH PROGRAM EXECUTION - AND ALLOWS 


THE 1/0 TIME AND PROCESSING TIME TO BE OVERLAPPED WITHIN A SINGLE 
PROGRAM. 


TO PERFORM DIRECT 1/0 ON A FILE (LET US CALL IT "“FID") ONE MUST 
FIRST DECLARE THE FILE AS A DIRECT FILE. 
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THE SYNTAX FOR A DIRECT 1/0 READ OR WRITE EMPLOYS THE “<ARITHMETIC 
EXPRESSION), <ARRAY ROW>" FORM, AND THE “{<EVENT DESIGNATOR>1]" CAN 
BE USED. THE <ARRAY ROW> IS CALLED THE USERS I/O AREA AND THE 
DIRECT ARRAY IDENTIFIER MUST BE USED IN THE <ARRAY ROW> CONSTRUCT. 
THUS TO READ DIRECT TEN WORDS FROM FID INTO DIRECT ARRAY “A" USING 
THE EVENT EVT WE WRITE: “READ(FID,10,AC*])(EVT1;". WHEN EXECUTING 
THIS <STATEMENT>, THE MCP ESTABLISHES A RELATIONSHIP BETWEEN THE I/ 
O AREA AND THE EVENT EVT. 


HOWEVER, BEFORE ANY SUBSEQUENT USE OF THE I/0 AREA CAN BE MADE IN 
THE PROGRAM, EITHER FOR CALCULATIONS OR FOR FURTHER 1/0, WE MUST BE 
SURE THAT THE DIRECT I/0 OPERATION IS COMPLETE. THE EVENT 
MECHANISM TELLS US THIS BY SETTING THE "HAPPENED" BIT ASSOCIATED 
WITH EVT WHEN THE READ OPERATION IS FINISHED. THIS BIT MAY BE 
INSPECTED BY MEANS OF THE BOOLEAN INTRINSIC FUNCTION "HAPPENED". 
THE USER MAY ALSO USE A <WAIT STATEMENT> TO DEACTIVATE THE PROCESS 
UNTIL THE “HAPPENED" BIT IS SET. ONCE THE OPERATION IS COMPLETED, 
THE "HAPPENED" BIT SHOULD BE RESET BEFORE REUSING EVT. 


EXAMPLES: 


WRITE (LINE, 14, POINTERID) 
BOOLVAR := WRITE (FIB, WORDCOUNT, AL*#1])} 
WRITE (FYLE, AMOUNT, ARRAYID) [ALLOVER] 
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8.8. INTERRUPT STATEMENTS 


SYNTAX 

CINTERRUPT STATEMENT> ::= <ATTACH STATEMENT> / <DETACH STATEMENTD / 
<ENABLE STATEMENT> / <DISABLE STATEMENT> 

<ATTACH STATEMENT> ::= ATTACH <INTERRUPT IDENTIFIER> TO 
<EVENT DESIGNATOR> 

<DETACH STATEMENT> ::= DETACH <INTERRUPT IDENTIFIER> 

<ENABLE STATEMENT> ::= ENABLE <INTERRUPT IDENTIFIERD 

<DISABLE STATEMENT> ::= DISABLE <INTERRUPT IDENTIFIER> 

SEMANTICS: 


THE <ATTACH STATEMENT> IS USED TO ASSOCIATE AN INTERRUPT WITH AN 
V ATTACHING AN INTERRUPT TO AN EVENT WITH AN ATTACH 


EVENT 

STATEMENT> SERVES TO IMPLICITLY ENABLE THE INTERRUPT. AN INTERRUPT 
MUST BE "ENABLED" AND “ATTACHED” TO AN EVENT BEFORE IT CAN HAVE ANY 
EF REGIE 


AN INTERRUPT MAY NOT BE ATTACHED TO MORE THAN ONE EVENT AT A TIME. 
HOWEVER, SEVERAL INTERRUPTS MAY BE ATTACHED TO THE SAME EVENT AT 
THE SAME TIME. 


THE <DETACH STATEMENT> SEVERS THE ASSOCIATION BETWEEN AN INTERRUPT 
AND THE EVENT TO WHICH IT IS ATTACHED. THIS STATEMENT IMPLICITLY 
DISABLES THE INTERRUPT. 


THE <ENABLE STATEMENT> AND THE <DISABLE STATEMENT) ARE USED TO 
EXPLICITLY ENABLE OR DISABLE AN INTERRUPT. THEY DIFFER FROM THE 
<ATTACH STATEMENT> AND <DETACH STATEMENT> IN’ THAT THEY DO NOT 
AFFECT THE ASSOCIATION BETWEEN THE INTERRUPT AND THE EVENT. 


EXAMPLES: 
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ATTACH I1 TO EVT; 
DISABLE 11; 
ENABLE 11; 
DETACH 11; 


8- 


34 
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SYNTAX: 
<ON STATEMENT> ::= ON “FAULT NAMED / 
ON <FAULT NAME> , <STATEMENT> 
<FAULT NAME> ::= ANYFAULT / BOTTOMOFSTACK / 


EXPONENTOVERFLOW / EXPONENTUNDERFLOW / INACTIVEQUEUE / 
INTEGEROVERFLOW / INVALIDADDRESS / INVALIDINDEX / 
INVALIDOP / INVALIDPROGRAMWORD / LOOP / MEMORYPARITY / 
MEMORYPROTECT / PROGRAMMEDOPERATOR / SCANPARITY / 
SEQUENCE / STACKOVERFLOW / STACKUNDERFLOW / 
STRINGPROTECT / ZERODIVIDE 


SEMANTICS: 


THE <ON STATEMENT> IS USED TO ENABLE (OR DISABLE) AN INTERRUPT FOR 
ONE OF 19 FAULT CONDITIONS. "ANYFAULT" SPECIFIES THAT ANY ONE OF 
THE 19 FAULTS INVOKES THE <STATEMENT>. 


"ON <FAULT NAME>,<STATEMENT>" ENABLES THAT <STATEMENT> AS THE 
INTERRUPT CODE. "ON <FAULT NAME>" DISABLES ANY PREVIOUSLY ENABLED 


INTERRUPT FOR THAT FAULT. 


ONCE ENABLED, THE INTERRUPT REMAINS ENABLED UNTIL: 


A. THE PROCEDURE OR <BLOCK> CONTAINING THE <ON STATEMENT> IS 
EXITED; 

B. THE INTERRUPT IS EXPLICITLY DISABLED; 

Cc. A NEW INTERRUPT IS ENABLED FOR THE SAME FAULT CONDITION. 


WHENEVER AN EXIT IS MADE FROM THE <BLOCK> CONTAINING AN <ON 
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STATEMENT>, THE INTERRUPT STATUS FOR THAT FAULT CONDITION REVERTS 
TO WHATEVER WAS ENABLED WHEN THE <BLOCK> WAS ENTERED. 


THE INTERRUPT <STATEMENT> MUST EITHER BE AN UNCONDITIONAL GO TO (OR 
A  <COMPOUND STATEMENT> OR <BLOCK> CONTAINING AN UNCONDITIONAL GO 
TO), SINCE THE INTERRUPTED CODE CANNOT BE RESUMED. 


UPON ENTRY INTO THE <STATEMENT>, THE TOP OF THE STACK CONTAINS A 
"FAULT NUMBER" WHICH SPECIFIES THE NATURE OF THE FAULT. (SEE THE 
“TOPOFSTACK" INTRINSIC. ) THIS IS A PARTICULAR IMPORTANCE IF 
"ANYFAULT" IS USED. THE VALUES AND MEANINGS ARE AS FOLLOWS: 


_— 


ZERODIVIDE 
EXPONENTOVERFLOW 
EXPONENTUNDERFLOW 
INVAL IDINDEX 
INTEGEROVERFLOW 
INACTIVEQUEUE 
MEMORYPROTECT 
INVALIDOP 

LOOP 

MEMORYPARITY 
SCANPARITY 
INVALIDADDRESS 
STACKOVERFLOW 
STRINGPROTECT 
PROGRAMMEDOPERATOR 
BOTTOMOFSTACK 
SEQUENCE 

INVAL IDPROGRAMWORD 
STACKUNDERFLOW 


oownz now FW Aw 


— 
-_- © 


oonwy nun FW 
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8.10 PROCEDURE STATEMENTS AND FUNCTION DESIGNATORS 
SYNTAX: 
<PROCEDURE STATEMENT> ::= <PROCEDURE IDENTIFIER> 
<ACTUAL PARAMETER PART> 
<FUNCTION DESIGNATOR> ::= “FUNCTION IDENTIFIER> 
<ACTUAL PARAMETER PART> 
<FUNCTION IDENTIFIER> ::= <IDENTIFIER> 
<ACTUAL PARAMETER PART> ::= <EMPTY> / (<ACTUAL PARAMETER LIST>) 


<ACTUAL PARAMETER LIST> 


<ACTUAL PARAMETER>D / 
<ACTUAL PARAMETER LIST> <PARAMETER DELIMITER> 
<ACTUAL PARAMETER> 


<ACTUAL PARAMETER> ::= <EXPRESSION> / <PROCEDURE IDENTIFIER> / 
<EVENT DESIGNATOR> 
<PARAMETER DELIMITER> ::= , / 
)"ZANY SEQUENCE OF LETTERS AND SINGLE SPACES 3" ¢ 
SEMANTICS: 


W 


A PROCEDURE STATEMENT CAUSES A PREVIOUSLY DECLARED PROCEDURE 
TO BE EXECUTED. 


A FUNCTION DESIGNATOR RETURNS A_ VALUE. HOWEVER, WHEN A 
FUNCTION DESIGNATOR IS USED AS A PROCEDURE STATEMENT, THIS 
VALUE IS DELETED. 


THE ACTUAL PARAMETER LIST OF THE PROCEDURE STATEMENT MUST HAVE 
THE SAME NUMBER OF ENTRIES AS THE FORMAL PARAMETER LIST OF THE 
PROCEDURE DECLARATION HEADING, 


FORMAL AND ACTUAL PARAMETERS MUST CORRESPOND IN TYPE AND KIND 
OF QUANTITIES. THE CORRESPONDENCE IS OBTAINED BY TAKING THE 
ENTRIES OF THESE TWO LISTS IN THE SAME ORDER. 
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5. THE FOLLOWING REMARKS CONCERN PARAMETERS: 


B. 
Cc. 
D. 
EXAMPLES: 
PROCEDURE 


CONSTANTS ARE PASSED BY VALUE, NO MATTER HOW THE 
CORRESPONDING FORMAL PARAMETER IS SPECIFIED. 


SUBSCRIPTED VARIABLES, WHEN PASSED BY NAME, WILL NOT 
CAUSE ACCIDENTAL ENTRY, EVEN IF THE SUBSCRIPTS ARE 
NOT CONSTANT. 


AS A RESULT OF B, ABOVE, ANY CALL-~BY-NAME PARAMETER 
MAY NOT BEGIN WITH A. SUBSCRIPTED VARIABLE UNLESS IT 
IS JUST A SUBSCRIPTED VARIABLE. (NOTE: PARENTHESES 
AROUND THIS VARIABLE WILL REMEDY THIS.) 


SUBEXPRESSIONS OF THE FORM. X+X ARE OPTIMIZED TO THE 
FOLLOWING: 

VALC X 

DUPL 

ADD 
EVEN IF X IS A FORMAL CALL-BY-NAME PARAMETER WITH 
SIDE EFFECTS. 


ALGORITHM123 (A+t+2) 
ALGORITHMS46 (A+2) "AVERAGE PLUS TWO" (CALCRULE) 
GETESPDISK 


FUNCTION DESIGNATORS: 


Getter 


J(A,Bte,Ql1,L)) 


GASVOL(K) " 


ie or 
I l 


EMPERATURE ® ( 


=f 


RANDOMNO 
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ACTUAL PARAMETER PARTS: 


(A,B+e,Q[1,J1) 
(A+2} 
(K) "TEMPERATURE" (T) "PRESSURE" (P) 


ACTUAL PARAMETERS: 


Ate 

A 
CHECKOUT 
Ale] 


EVENT DESIGNATORS: 


El 
XERXES 
ZEUST2,31 


PARAMETER DELIMITER: 


)"TEMPERATURE " ( 
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8.11. REPLACE AND SCAN STATEMENTS 


SYNTAX: 

<REPLACE STATEMENT> ::= REPLACE <DESTINATION> BY <SOURCE LIST> 
<SCAN STATEMENT> ::= SCAN <SOURCE> <SCAN PART> 

<DESTINATION> ::= <UPDATE POINTER> <POINTER EXPRESSION> 

<SOURCE LIST> ::= <SOQURCE PART> / <SOURCE PART> , <SOURCE LIST> 
<SOURCE> ::= <POINTER SOURCE> / <ARITHMETIC SOURCE> 

<SCAN PART> ::= <SCAN COUNT> <CONDITION> / <CONDITION> 

<SOURCE PART> ::= <SOURCE> <TRANSFER PART> / <STRING> 


<TRANSFER PART> / <ARITHMETIC SOURCE> 
<ARITHMETIC TRANSFER PART> / <STRING> 

<TRANSFER PART> ::= <SCAN COUNT> <CONDITION> / <CONDITION> 
<FINAL COUNT> <UNITS> /¢ WITH <PICTURE DESIGNATORD>D / 
<FINAL COUNT> WITH <TRANSLATE TABLE> 


<ARITHMETIC TRANSFER PART> ::= <DIGIT COUNT> / <CORRECT COUNT> / 
<CORRECT COUNT> <CONDITION> 

<SCAN COUNT> ::= FOR <UPDATE COUNT> <ARITHMETIC EXPRESSION> 

<FINAL COUNT> ::= FOR <ARITHMETIC EXPRESSION> 

<DIGIT COUNT> = FOR <ARITHMETIC EXPRESSION> DIGITS 

<CORRECT COUNT> ::= <SCAN COUNT> CORRECTLY 

<POINTER SOURCE> ::= <UPDATE POINTER> <POINTER EXPRESSION> 

<ARITHMETIC SOURCE> ::= <UPDATE VARIABLE> <ARITHMETIC EXPRESSION> 

<CONDITION> ::= WHILE <RELATIONAL OPERATOR> 


<ARITHMETIC EXPRESSION> / UNTIL “RELATIONAL OPERATOR> 
<ARITHMETIC EXPRESSION> / UNTIL IN <TABLE> /¢ WHILE IN <TABLE> 
<TABLE> ::= <ARRAY ROW> / <SUBSCRIPTED VARIABLE> 
<TRANSLATE TABLE> ::= <TABLE> 
<PICTURE DESIGNATOR> ::= <PICTURE IDENTIFIER> <REPEAT PARAMETERS> 
<REPEAT PARAMETERS> ::= <EMPTY> / (<UNSIGNED INTEGER LIST>) 
<UNSIGNED INTEGER LIST> ::= <ARITHMETIC EXPRESSIOND / 
<ARITHMETIC EXPRESSION> , <UNSIGNED INTEGER LIST> 
<UPDATE POINTER> ::= <EMPTY> / “POINTER IDENTIFIERD 
<UPDATE VARIABLE> ::= <EMPTY> / <SIMPLE VARIABLE> 
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<UPDATE COUNT> ::= <EMPTY> / <SIMPLE VARIABLE> 
<UNITS> ::= <EMPTY> / WORDS / OVERWRITE 
SEMANTICS: 


IN THE FOLLOWING DISCUSSION, THE TERMS “REPLACE” AND “TRANSFER" ARE 
SYNONYMOUS, 


1. A <REPLACE STATEMENT> CAUSES INFORMATION TO BE TRANSFERRED 
FROM THE <SOURCE> TO THE <DESTINATION>. THE UNIT OF 
INFORMATION MAY BE WORDS OR’ CHARACTERS, AND THE NUMBER OF 
UNITS TRANSFERRED MAY BE SPECIFIED BY A COUNT OR DETERMINED BY 
A <CONDITION>. IF THE UNIT OF INFORMATION IS A WORD, THEN 
BOTH THE <SOURCE> AND THE <DESTINATION> WILL BE RIGHT-ADJUSTED 
TO A WORD BOUNDARY BEFORE THE TRANSFER BEGINS. 


e. A <SCAN STATEMENT> CAUSES THE INFORMATION IN THE SOURCE TO BE 
SCANNED. THE UNIT OF INFORMATION IS A CHARACTER, AND A 
<CONDITION> MUST BE PRESENT. THE NUMBER OF CHARACTERS SCANNED 
MAY BE DETERMINED BY THE COUNT OR THE <CONDITION>. 


$3 THE DEFAULT UNIT FOR THE <REPLACE STATEMENT> IS CHARACTERS. 


"WORDS" AND "OVERWRITE" BOTH MEAN UNITS OF ONE WORD. IN 
ADDITION, "OVERWRITE" IGNORES MEMORY PROTECTION ON’ THE 


DESTINATION AND THE SOURCE, AND IT ALSO IGNORES MEMORY PARITY 
ERRORS ON THE DESTINATION. 


4. AT THE END OF A REPLACE OR SCAN STATEMENT, CERTAIN UPDATED 
INFORMATION IS AVAILABLE. 


A. THE DESTINATION <UPDATE POINTER> POINTS TO THE NEXT 
POSITION TO BE FILLED. IF THE UNIT OF TRANSFER IS A 
WORD, THE DESTINATION <UPDATE POINTER> WILL POINT TO 
THE LEFTMOST CHARACTER OF THE NEXT WORD TO BE FILLED 


B. THE SOURCE <UPDATE POINTER> POINTS TO THE NEXT UNIT 


So He 
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TO BE SCANNED OR’ TRANSFERRED. IF THE UNIT IS A 
WORD, THE <UPDATE POINTER> WILL POINT TO THE 
LEFTMOST CHARACTER OF THE WORD. 


Cx FOR SCANS AND TRANSFERS, AN <ARITHMETIC SOURCE> 


SHOULD BE THOUGHT OF AS BEING CIRCULAR, WITH THE 
HIGH-ORDER AND LOW-ORDER ENDS CONTIGUOUS. THE 


SOURCE <UPDATE VARIABLE> RETURNS THE ORIGINAL 
EXPRESSION ROTATED IN SUCH A WAY THAT THE NEXT 
CHARACTER TO BE USED IS IN THE HIGH-ORDER POSITION. 


D. EACH TIME A UNIT OF INFORMATION IS SCANNED OR 
TRANSFERRED, THE ORIGINAL COUNT AS GIVEN BY AN 
<ARITHMETIC EXPRESSION> IS DECREMENTED BY 1. THIS 
CONINUES UNTIL THE COUNT REACHES 0 IF NO <CONDITION> 
1S IMPOSED. IF A <CONDITION> IS IMPOSED, THE COUNT 
MAY NOT REACH O AND THE <UPDATE COUNT> RETURNS THE 
VALUE OF THE COUNT AT THE END OF THE TRANSFER. THE 
RESERVED WORD “TOGGLE" WILL BE TRUE IF THE <UPDATE 
COUNT> IS O. 


THE <DIGIT COUNT> CAUSES THE SOURCE <ARITHMETIC EXPRESSION> 
THE DESIGNATED NUMBER OF LOW-ORDER DECIMAL DIGITS IS 
TRANSFERRED TO THE <DESTINATION>, AND THE SOURCE <UPDATE 
VARIABLES) RETURNS THE ORIGINAL EXPRESSION "DIV" THE DESIGNATED 
POWER OF 10. 


THE <CORRECT COUNT> CAUSES THE SOURCE <ARITHMETIC EXPRESSION> 
TO BE ROTATED IN SUCH A WAY THAT THE APPROPRIATE NUMBER OF 
LOW-ORDER CHRACTERS APPEAR IN THE HIGH-ORDER ORDER END OF THE 
SOURCE. AFTER THIS ROTATION, A NORMAL TRANSFER WILL OCCUR. 
IF, FOR EXAMPLE, ONE CHARACTER WERE TO BE TRANSFERRED 

CORRECTLY, THE LOW-ORDER CHARACTER WOULD BE MOVED TO THE HIGH- 
ORDER POSITION BEFORE THE TRANSFER OCCURS. SINCE TRANSFERS 
WORK F 


R 
TRANSFER OF RIGHT-~JUSTIFIED CHARACTERS IN AN <ARITHMETIC 


OM 1rer T T 
OM LEFT TO RIGHT, THI HAS THE EFFECT OF A 


10. 


8- 43 
B6700/B7700 ESPOL 


EXPRESSION>. 


SCANS AND TRANSFERS ALWAYS WORK FROM LEFT TO RIGHT ON BOTH 
<DESTINATION> AND <SOURCE>, INCLUDING <ARITHMETIC SOURCE>. 
THE <CORRECT COUNT> AND <DIGIT COUNT> MAY BE CONSIDERED 
EXCEPTIONS. 


THE <TRANSLATE TABLE> WORKS IN THE FOLLOWING WAY. EACH SOURCE 
CHARACTER IS USED TO FIND AN EIGHT-BIT TRANSLATION CHARACTER 
IN AN <ARRAY ROW>. THE HIGH-OQRDER PART OF THIS CHARACTER IS 
DISCARDED TO MAKE IT FIT THE <DESTINATION> CHARACTER SET, AND 
IT IS THEN STORED IN THE DESTINATION, THE EIGHT-BIT 
TRANSLATION CHARACTER IS FOUND IN THE FOLLOWING WAY. THE LOW- 
ORDER TWO BITS OF THE SGURCE CHARACTER ARE USED AS THE 
CHARACTER INDEX, AND THE REMAINING HIGH-ORDER BITS ARE USED AS 
THE WORD INDEX. THE WORD INDEX IS EITHER USED AS A SUBSCRIPT 
TO THE <ARRAY ROW> OR IS ADDED TO THE RIGHTMOST SUBSCRIPT OF 
THE <SUBSCRIPTED VARIABLE>. IN THE RESULTING WGRD, CHARACTER 
NUMBER (@+ (CHARACTER INDEX)) IS THE TRANSLATION CHARACTER. 
AS USUAL, THE CHARACTERS ARE NUMBERED LEFT TO RIGHT, SO THAT 
THE TRANSLATION CHARACTER WILL BE ONE OF THE FOUR LOW-ORDER 
EIGHT-BIT CHARACTERS IN THE WORD. 


THE WHILE <RELATIONAL OPERATOR> FORM OF <CONPITION> CAUSES 
TERMINATION OF THE SCAN OR TRANSFER WHEN THE SOURCE CHARACTER 
CEASES TO HAVE THE DESIGNATED RELATION TO THE LOW-ORDER 


.CHARACTER OF THE CONDITION <ARITHMETIC EXPRESSIOND. THE 


CHARACTER WHICH CAUSES TERMINATION OF THE SCAN OR TRANSFER 
WILL NOT BE SCANNED OR TRANSFERRED, THUS THE SOURCE <UPDATE 
POINTER> IS LEFT POINTING AT THAT CHARACTER. 


THE UNTIL <RELATIONAL OPERATOR> FORM OF <CONDITION> CAUSES 
TERMINATION OF THE SCAN OR TRANSFER WHEN THE SOURCE CHARACTER 
HAS THE DESIGNATED RELATION TO THE LOW-ORDER CHARACTER OF THE 
CONDITION <ARITHMETIC EXPRESSION>. THE CHARACTER WHICH CAUSES 
TERMINATION OF THE SCAN OR TRANSFER WILL NOT BE SCANNED OR 


il. 


le. 


13. 
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TRANSFERRED. 


<CONDITION>S INVOLVING THE <TABLE> CONSTRUCT USE THE BITS OF 
THE SOURCE CHARACTER TO FIND A TEST BIT IN AN <ARRAY ROW). 
THE CHARACTER IS "IN" THE <TABLE> IFF THE TEST BIT IS ON. THE 
TEST BIT IS FOUND IN THE FOLLOWING WAY. THE LOW-ORDER FIVE 
BITS OF THE SOURCE CHARACTER (FOUR BITS IF THE SOURCE 
CHARACTER ONLY HAS FOUR) ARE USED AS THE BIT INDEX, AND THE 
REMAINING BITS, IF ANY, ARE USED AS THE WORD INDEX. THE WORD 
INDEX IS EITHER USED AS A SUBSCRIPT TO THE <ARRAY ROW> OR IS 
ADDED TO THE RIGHTMOST SUBSCRIPT OF THE <SUBSCRIPTED VARIABLE> 
IN THE RESULTING WORD, BIT NUMBER (31 - (BIT INDEX)) IS THE 
TEST BIT. AS USUAL, BITS ARE NUMBERED RIGHT TO LEFT, SO THAT 
THE TEST BIT WILL BE ONE OF THE LOW-ORDER 3e BITS IN THE WORD. 


IF THE <SOURCE> IS A <STRINGD>, THE <STRING> IS TRANSFERRED TO 
THE <DESTINATION> UNDER THE CONTROL OF A COUNT. IF THE COUNT, 
C, IS NOT GREATER THAT THE STRING LENGTH, L, THEN C CHARACTERS 
ARE COPIED INTO THE DESTINATION. IF THE COUNT, C, IS GREATER 
THAN THE LENGTH, L, AND THE STRING IS MORE THAN 48 BITS LONG, 
THE BEHAVIOR IS UNPREDICTABLE. IF C IS GREATER THAN L AND THE 
STRING IS SHORTER THAN 48 BITS, THEN THE STRING IS 
CONCATENATED WITH ITSELF. UNTIL THE TOTAL LENGTH IS GREATER 
THAN 48 BITS. THE FIRST 48 BITS OF THIS STRING ARE USED AS A 
SOURCE AND ARE REPEATEDLY COPIED INTO THE DESTINATION UNTIL 
THE COUNT IS EXHAUSTED. FOR EXAMPLE, 8 "“ABCD" FOR 10 
TRANSFERS "ABCDABABCD", NOT “ABCDABCDAB". 


<SOURCE> WITH <PICTURE IDENTIFIER> TRANSFERS CHARACTERS UNDER 
THE CONTROL OF THE PICTURE. (SEE <PICTURE DECLARATION>D.) 
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9. EXPRESSIONS 


<bee Gr GENERAL 


AN EXPRESSION IS USED TO OBTAIN VALUES. 


SYNTAX: 


<EXPRESSION> ::= <GENERAL COMPONENT> / <ARITHMETIC EXPRESSIOND / 
<ARRAY EXPRESSION> / <BOOLEAN EXPRESSION> / 
<CASE EXPRESSION> / <CONDITIONAL EXPRESSIOND / 
<DESIGNATIONAL EXPRESSION> / <POINTER EXPRESSION>D / 
<REFERENCE EXPRESSION> / <WORD EXPRESSIOND> 


SEMANTICS: 


EXPRESSIONS ARE RULES BY WHICH VALUES MAY BE OBTAINED BY EXECUTING 
VARIOUS OPERATIONS ON THE COMPONENTS OF WHICH EXPRESSIONS ARE 
COMPOSED. CONDITIONAL AND CASE EXPRESSIONS ARE MORE COMPLICATED 
BECAUSE ONE OF SEVERAL ALTERNATIVE EXPRESSIONS MUST FIRST BE 
SELECTED FOR EVALUATION. 
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Sear ARITHMETIC EXPRESSIONS 


<ARITHMETIC EXPRESSION> ::= <CONDITIONAL ARITHMETIC EXPRESSIOND / 
<ARITHMETIC ASSIGNMENT> / <SIMPLE ARITHMETIC EXPRESSION> / 
<WORD EXPRESSION> 
<CONDITIONAL ARITHMETIC EXPRESSION> ::= <IF CLAUSE> 
<ARITHMETIC EXPRESSION> ELSE <ARITHMETIC EXPRESSION> 
<ARITHMETIC ASSIGNMENT> ::= 
<ARITHMETIC VARIABLE> <REPLACEMENT OPERATOR> 
<ARITHMETIC EXPRESSION> 
<SIMPLE ARITHMETIC EXPRESSION> ::= 
<SIMPLE ARITHMETIC EXPRESSION> <ADDING OPERATOR> <TERM> / 
<UNARY OPERATOR> <TERM> / <TERM> 
<ADDING OPERATOR> ::= + / - 
<UNARY OPERATOR> ::= <ADDING OPERATORD 
<TERM> ::= <FACTOR> /¢/ <TERM> <MULTIPLYING OPERATOR>D <FACTORD . 
<FACTOR> ::= <PRIMARY> / <PRIMARY> * <INTEGERD> 
<MULTIPLYING OPERATOR> ::= x / <SLASH> / DIV / MOD / MUX 
<PRIMARY> ::= <UNSIGNED NUMBERD / <STRING) / 
<FIELD DESIGNATOR> / <OPERAND> / <PRIMARY>D & 
<ARITHMETIC EXPRESSION> <CONCATENATION> / <PRIMARY> 
& <LAYOUT> 


<FIELD DESIGNATOR> ::= <OPERAND> . <FIELD IDENTIFIERD / 
<ARRAY PRIMARY> . <FIELD IDENTIFIERD 
<OPERAND> ::= <ARITHMETIC VARIABLE> 


(<ARITHMETIC EXPRESSION>D) / 
<ARITHMETIC FUNCTION DESIGNATOR>D / 
<CASE HEAD> (<ARITHMETIC EXPRESSION LIST>) 


<CONCATENATIOND ::= [(<LEFT BIT-TO>:<NUMBER OF BITS)] / 
(<LEFT BIT-TO>:<LEFT BIT-FROM>:<NUMBER OF BITS) ] 

“LEFT BIT-TO> ::= <ARITHMETIC EXPRESSION> 

<NUMBER OF BITS> ::= <ARITHMETIC EXPRESSION> 


CLEFT BIT-FROM> ::= <ARITHMETIC EXPRESSTION> 
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<LAYOUT> ::= “LAYOUT IDENTIFIER> (<FIELD VALUE LIST>) 
<FIELD VALUE LIST> ::= <FIELD VALUE> / <FIELD VALUE LIST>, 


<FIELD VALUE> 


<FIELD VALUE> ::= <EMPTY> / <ARITHMETIC EXPRESSION> / * 
<ARITHMETIC VARIABLE> ::= <VARIABLE> 
<ARITHMETIC FUNCTION DESIGNATOR>D ::= <FUNCTION DESIGNATOR> / 


<ARITHMETIC INTRINSIC> 


<ARITHMETIC EXPRESSION LIST> ::= <ARITHMETIC EXPRESSIOND / 


<ARITHMETIC EXPRESSION LIST> , <ARITHMETIC EXPRESSIOND 


SEMANTICS: 


AN ARITHMETIC EXPRESSION OBTAINS A NUMERIC VALUE. 


A VARIABLE, VALUE DESIGNATOR, OR FUNCTION DESIGNATOR USED AS A 
PRIMARY IN AN ARITHMETIC EXPRESSION MUST BE OF AN ARITHMETIC 
TYPE: INTEGER, REAL, OR DOUBLE. 


EACH EXPRESSION IN A FIELD VALUE LIST OR EXPRESSION LIST USED 
IN AN ARITHMETIC EXPRESSION MUST ALSO BE OF AN ARITHMETIC TYPE 


THE VALUE OF AN ARITHMETIC EXPRESSION MAY BE EXPRESSED IN 
SINGLE OR DOUBLE PRECISION. 


A. THE PRECISION OF A CASE EXPRESSION VALUE IS DOUBLE 
IF ANY ONE OF THE EXPRESSIONS OF ITS EXPRESSION LIST 
IS DOUBLE. OTHERWISE THE PRECISION IS SINGLE. 


B. THE PRECISION OF THE VALUE OF A CONDITIONAL 
ARITHMETIC EXPRESSION IS DOUBLE IF ANY OF THE 
EXPRESSIONS IN THE STATEMENT IS DOUBLE PRECISION, 
OTHERWISE THE PRECISION OF THE VALUE IS SINGLE. 


Cc. EXTENDED PRECISION VALUES MAY NOT BE USED IN A FIELD 
DESIGNATOR AS A BASE. 


11. 


le. 


13. 
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THE OPERATOR "DIV" DENOTES INTEGER DIVISION. Y DIV Z = SIGN 
(Y/Z)xENTIERCABS(Y/Z)) 


THE OPERATOR "MOD" DENOTES REMAINDER DIVISION. Y MOD Z = Y - 
(Zx(SIGNCY/Z)x ENTIER CABS(Y/Z)))) 


THE OPERATOR "MUX" DENOTES DOUBLE-PRECISION MULTIPLICATION. 
ITS OPERANDS MAY BE SINGLE OR DOUBLE PRECISION. 


THE EXPONENTIATION OPERATOR, * : 1S DEFINED FOR INTEGER- 
CONSTANT EXPONENTS ONLY. 


THE SEQUENCE IN WHICH OPERATIONS ARE PERFORMED IS DETERMINED 
BY THE PRECEDENCE OF THE OPERATORS. 


THE ORDER OF PRECEDENCE OF OPERATORS IS: 


FIRST: * 
SECOND: x, /, MOD, DIV, MUX 
THIRD: +, - 


WHEN OPERATORS ARE OF THE SAME ORDER OF PRECEDENCE, THE 
SEQUENCE OF OPERATION IS DETERMINED FROM THE LEFT-TO-RIGHT 
ORDER OF APPEARANCE OF THE OPERATORS. 


AN EXPRESSION BETWEEN PARENTHESES IS EVALUATED BY ITSELF AND 
THIS VALUE IS USED IN SUBSEQUENT CALCULATIONS. THAT IS, THE 
NORMAL ORDER OF PRECEDENCE OF OPERATORS CAN BE OVERRIDDEN BY 
THE JUDICIOUS PLACEMENT OF PARENTHESES. THEREFORE, THE 

DESIRED ORDER OF EXECUTION WITHIN AN EXPRESSION CAN ALWAYS BE 
ARRANGED BY THE APPROPRIATE POSITIONING OF PARENTHESES. 


NO TWO OPERATORS MAY BE ADJACENT. 


14. THE CONCATENATION FORM OF <ARITHMETIC EXPRESSION> 
PROVIDES AN EFFICIENT METHOD OF FORMING A <PRIMARY> FROM 
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SELECTED PARTS OF TWO OR MORE <PRIMARYDS. A CONCATENATION 
<PRIMARY> Is FORMED BY LINKING PART OF A <PRIMARY> WITH THE 
SPECIFIED PORTION OF AN <ARITHMETIC EXPRESSION> VALUE. SINCE 
<ARITHMETIC EXPRESSIOQN> Is RECURSIVE WITH RESPECT TO 
CONCATENATION, ANY NUMBER OF <CONCATENATION> TERMS MAY BE USED 
IN CONSTRUCTING A <PRIMARY>D. 


THE <LEFT BIT-TO> PART OF A <CONCATENATION> TERM DEFINES THE 
LEFTMOST BIT LOCATION OF THE DATA FIELD IN THE DESTINATION 
WORD. THE <LEFT BIT-FROM> PART DEFINES THE LEFTMOST BIT 
LOCATION OF THE DATA FIELD IN THE SOURCE WORD. THE <NUMBER OF 
BITS> PART SPECIFIES THE LENGTH OF THE DATA FIELD TO BE MOVED 
FROM THE SOURCE FIELD TO THE DESTINATION FIELD. 


TF THE <LEFT BIT-TO>  : “NUMBER OF BITS> FORM OF 
<CONCATENATION> IS SPECIFIED, THE SOURCE FIELD IS ASSUMED TO 
START AT <NUMBER OF BITS>-i, THAT IS, THE SOURCE FIELD IS 
ASSUMED TO .BE THE LOW-ORDER <NUMBER OF BITS> IN THE SOURCE 
WORD. 


IF MORE THAN ONE <CONCATENATION> TERM IS USED IN- AN 
<EXPRESSION>, THEN THESE ARE EVALUATED FROM LEFT TO RIGHT. 


A <FIELD DESIGNATOR> ALLOWS OPERATIONS TO BE PERFORMED ON ANY 
CONTIGUOUS FIELD WITHIN A WORD RATHER THAN THE WHOLE WORD. 
THE <LEFT BIT~FROM> PART DEFINES THE LEFTMOST BIT LOCATION OF 
THE FIELD. THE <NUMBER OF BITS> PART SPECIFIES THE LENGTH OF 
THE FIELD. 


THE <LEFT BIT-FROM> PARTS OF <CONCATENATION> AND <FIELD 
DESIGNATOR>S MUST LIE IN THE RANGE OF OQ THRU 47, WHERE BIT O 
1S THE RIGHTMOST (OR LEAST SIGNIFICANT) BIT IN THE WORD. 
<NUMBER OF BITS> MUST LIE IN THE RANGE O THROUGH 48. IF 17 
EXCEEDS THE NUMBER OF BITS REMAINING IN EITHER THE SOURCE OR 
DESTINATION WORDS, THESE FIELDS ARE CONTINUED AT BIT NUMBER 47 
(LEFTMOST) OF THE SAME WORD. 
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15. AN EMPTY FIELD VALUE CAUSES THE DEFAULT VALUE, AS SPECIFIED BY 
THE <FIELD VALUE PART> IN THE DECLARATION, TO BE ASSIGNED TO 
THE FIELD. A <FIELD VALUE> OF "*" CAUSES THE FIELD TO BE 
IGNORED. IF NO INITIAL VALUE IS SPECIFIED, THEN <EMPTY> IS 
FQUIVALENT TO "*". 


16. IF THE <FIELD VALUE LIST> CONTAINS FEWER <FIELD VALUE>S THAN 
DECLARED IN THE CORRESPONDING <LAYOUT ITEM LIST>, THE COMPILER 
WILL EMIT CODE AS NECESSARY FOR THE REMAINING <FIELD VALUE 
PART>S WHICH ARE NOT <EMPTY>. 


EXAMPLES: 


Q 

Q-Vv 

HO + (IF GONE THEN @2@ ELSE 2/3) 

IF JOY THEN X ELSE 4+Q 

WxU-Qx(S+CU) 

IF Q>0 THEN S+3xQ/A ELSE ZxS+3xA 

IF A>O THEN U+V ELSE IF AxB>17 THEN U/V ELSE IF K#Y 
THEN V/U 

-57@1e2xAINx(N-1)/2,0] 

QxV*2 

P MOD 2 

Ale, SIZ*2 DIV QUANT] «IF BOOEX THEN Q+Q+1 ELSE 4% 


SIMPLE ARITHMETIC EXPRESSIONS: 


PRIMAR 


FIELD 
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-Q 

S 

+3 

Q 

P MOD 2 

YES 

4xR DIV §S 

ALI 1-BlJ1+5.3 


Q 

Q@ MOD V 
7.3940@-8 

SUM 

WEI+2,81] 
ex(x+Y) 

Y*3 

Q MOD V DIV 2 


IES: 


J 
Q+R 


VARINAME & LOOK (6, IF BOOEXP THEN Q-Q+1 


AN(3,51]) 

2 & SEET (X-FCA+B), 12, VO) 
@-72 

7 

O&CONCAT() 

Q 


DESIGNATORS: 


& NAW 


(27, 


TRUE ) 


ELSE e, 


FIELD 
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SIGNIFY(X).2 
VARINAME.F ITELDNAME 
FUNC(A,TRUE).F6 
(X-ARITHEXP(2Z7)+Q 


OPERANDS: 


CASE X+X+U OF (CV, 
Q 

TALLYHOCTFX) 
(Q+RxZ-T) 


LAYOUTS: 


CHAS (Q+R*6, FCA)) 
GHT(ZY,7) 


MOD 2).F711 


+27xF(Z,7),ARYCe2,BO0Q)) 
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9.3. ARRAY EXPRESSIONS 


<ARRAY EXPRESSIONS ::= <ARRAY ASSIGNMENT> / <ARRAY PRIMARY>D / 

<IF CLAUSE> <ARRAY EXPRESSION> ELSE <ARRAY EXPRESSION> 
<ARRAY ASSIGNMENT> ::= 

<ARRAY DESIGNATOR> <REPLACEMENT OPERATOR> <ARRAY EXPRESSIOND 


<ARRAY DESIGNATOR> ::= <ARRAY IDENTIFIER> <SUBARRAY DESIGNATOR> / 
<ARRAY VARIABLE> 

<SUBARRAY DESIGNATOR> ::= <EMPTY> / 
(<SUBSCRIPT PART> <SUBARRAY PART>] 

<SUBSCRIPT PART> ::= <EMPTY> / <SUBSCRIPT LIST> , 

<SUBARRAY PART> ::= * / <SUBARRAY PART> , * 

<ARRAY VARIABLE> ::= <SIMPLE VARIABLE> / <ARRAY ITEM> 

<ARRAY ITEM> ::= <ITEM> 

<ARRAY PRIMARY> ::= <ARRAY DESIGNATOR> / (<ARRAY EXPRESSION>) / 


<ARRAY PRIMARY> & <LAYOUT> / <WORD EXPRESSION> 


SEMANTICS: 


1. AN <ARRAY EXPRESSION> IS REPRESENTED BY AN UNINDEXED DATA 


DESCRIPTOR. 
e. AN <ARRAY DESIGNATOR> REFERENCES A DATA DESCRIPTOR. 
3 AN <ARRAY ASSIGNMENT> INITIALIZES OR CHANGES THE VALUES OF THE 


IF BOOVAR THEN ARRVAR [2,3,*1] ELSE A2S3 + A1S3 
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A2&Se-A3S3 
ARVRI3,*] 


ARRAY PRIMARIES; 


QVAR (3,*] 
(A2S2-A3S3) 
QVAR [2,*] & Ces 


ARRAY DESIGNATORS: 


NEXT 
NXTON[2,3,%*] 


ARRAY VARIABLES: 


DELTA 
ARRAYNAME @ ARRAYDECQUE 


SUBARRAY DESIGNATORS: 
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9.4. BOOLEAN EXPRESSIONS 


<BOOLEAN EXPRESSION> ::= <CONDITIONAL BOOLEAN EXPRESSION> / 
<BOOLEAN ASSIGNMENT> / <SIMPLE BOOLEAN EXPRESSIOND> / 
<WORD EXPRESSION> 
<CONDITIONAL BOOLEAN EXPRESSION> ::= 
<IF CLAUSE> <BOOLEAN EXPRESSION> ELSE <BOOLEAN EXPRESSION> 
<BOOLEAN ASSIGNMENT> ::= <BOOLEAN VARIABLE> “REPLACEMENT OPERATOR) 
<BOOLEAN EXPRESSION> 
<SIMPLE BOOLEAN EXPRESSION> ::= <IMPLICATIOND / 
<SIMPLE BOOLEAN EXPRESSION> EQV <IMPLICATION> 
<IMPLICATION> ::= <BOOLEAN TERM> / <IMPLICATION> IMP <BOOLEAN TERM> 
<BOOLEAN TERM> ::= <BOOLEAN FACTOR> / “BOOLEAN TERM> OR 
<BOOLEAN FACTOR> 
<BOOLEAN FACTOR> ::= <BOOLEAN SECONDARY> / <BOOLEAN FACTOR> AND 
<BOOLEAN SECONDARY> 
<BOOLEAN SECONDARY> ::= <BOOLEAN PRIMARY> / NOT <BOOLEAN PRIMARY> 
<BOOLEAN PRIMARY> ::= <LOGICAL VALUE> / <RELATION> / 
<BOOLEAN ITEM> / <BOOLEAN FIELD DESIGNATORD> / 
<BOOLEAN OPERAND> / 
<BOOLEAN PRIMARY> & <BOOLEAN EXPRESSION> <CONCATENATION> / 
<BOOLEAN PRIMARY> & <BOOLEAN LAYOUT> / <TABLE MEMBERSHIP> / 
<VALUE DESIGNATOR> 
<BOOLEAN ITEM> ::= <ITEMD> 
<BOOLEAN FIELD DESIGNATOR> ::= 
<BOOLEAN OPERAND> . <FIELD IDENTIFIER> 
<BOOLEAN OPERAND> ::= (<BOOLEAN EXPRESSION>) / 
<BOOLEAN VARIABLE> / <BOOLEAN FUNCTION DESIGNATOR> / 
<CASE HEAD> (<BOOLEAN EXPRESSION LIST>) 


<BOOLEAN EXPRESSION LIST> ::= <BOOLEAN EXPRESSION> / 
“BOOLEAN EXPRESSION LIST> , <BOOLEAN EXPRESSION> 
<BOOLEAN LAYOUT> ::= <LAYOUT> 


<BOOLEAN VARIABLE> ::= <VARIABLE> 
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<BOOLEAN FUNCTION DESIGNATOR> ::= <FUNCTION DESIGNATOR> / 
<BOOLEAN INTRINSIC> 

<RELATION> ::= “ARITHMETIC RELATION> / <REFERENCE RELATION> / 
<STRING RELATION> / <POINTER RELATION> 

<ARITHMETIC RELATION> ::= <ARITHMETIC EXPRESSION> 
<ARITHMETIC RELATIONAL> <ARITHMETIC EXPRESSION> 

<ARITHMETIC RELATIONAL> ::= <RELATIONAL OPERATOR> / IS 

<REFERENCE RELATION> ::= <REFERENCE EXPRESSION> 
<REFERENCE RELATIONAL> <REFERENCE EXPRESSION> 

<REFERENCE RELATIONAL> ::= = / # 

<STRING RELATION> ::= “POINTER EXPRESSION> <RELATIONAL OPERATOR> 
<POINTER EXPRESSION> FOR <ARITHMETIC EXPRESSION> 

<POINTER RELATION> ::= <POINTER EXPRESSION> <REFERENCE RELATIONAL> 
<POINTER EXPRESSION> 

<TABLE MEMBERSHIP> ::= <ARITHMETIC EXPRESSION> IN <TABLE POINTER> / 
<POINTER EXPRESSION> IN <TABLE POINTER> 

<TABLE POINTER> ::= ALPHA / ALPHA6 / ALPHAS / 
<SUBSCRIPTED VARIABLE? 


SEMANTICS: 
1. A BOOLEAN EXPRESSION OBTAINS A LOGICAL VALUE. 
2. A VARIABLE, VALUE DESIGNATOR, OR FUNCTION DESIGNATOR USED AS A 


"BOOLEAN" PRIMARY MUST BE OF TYPE "BOOLEAN". 


3. THE SEQUENCE IN WHICH OPERATIONS ARE PERFORMED IS DETERMINED 
BY THE PRECEDENCE OF THE OPERATORS. 


4. THE ORDER OF PRECEDENCE OF OPERATORS IS AS FOLLOWS: 


FIRST: ARITHMETIC EXPRESSIONS 
SECOND: RELATIONS . 

THIRD: NOT 

FOURTH: AND 

FIFTH: OR 
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SIXTH: IMP 
SEVENTH: EQV 


WHEN OPERATIONS ARE OF THE SAME ORDER OF PRECEDENCE, THE 
EXPRESSION IS EVALUATED FROM LEFT TO RIGHT. 


oe THE LOGICAL OPERATORS ARE DEFINED BY THE FOLLOWING TRUTH 
TABLE: 


OPERAND A OPERAND 8B NOT A A AND B A OR B A IMP B A EQV B 


TRUE TRUE FALSE TRUE TRUE TRUE TRUE 
TRUE FALSE FALSE FALSE TRUE FALSE FALSE 
FALSE TRUE TRUE FALSE TRUE TRUE FALSE 
FALSE FALSE TRUE FALSE FALSE TRUE TRUE 


THE ABOVE DEFINED BOOLEAN OPERATIONS ARE PERFORMED ON ALL 48 BITS 
OF THE OPERAND OR OPERANDS INVOLVED. FOR EXAMPLE, REAL (NOT TRUE) 
IS NOT EQUIVALENT TO REAL (FALSE) BECAUSE "NOT" COMPLEMENTS ALL 48 
BITS OF THE OPERAND IN THE TOP OF THE STACK, WHEREAS “FALSE" ONLY 
IMPLIES THAT BIT ZERO OF THAT OPERAND IS OFF. 


6. RELATIONS DEFINE THE MANNER IN WHICH THE VARIOUS RELATIONAL 
OPERATORS ARE USED WITH THE VARIOUS EXPRESSION TYPES. 


7. THE "IS" OPERATOR COMPARES ALL THE BITS (INCLUDING TAG BITS) 
OF TWO ®8B6700/B7700 WORDS. IF ALL BITS ARE EQUAL, THE RESULT 
OF THE COMPARISON IS TRUE. WHEN USED WITH ARITHMETIC OPERANDS 
THE "IS" RELATIONAL OPERATOR DIFFERS FROM "=" IN THAT IT 
COMPARES BIT PATTERNS FOR EQUALITY, AND DOES NO NORMALIZATION. 


8. THE <TABLE MEMBERSHIP> CONSTRUCT ALLOWS THE PROGRAMMER TO TEST 
WHETHER A GIVEN CHARACTER IS A MEMBER OF A PREDEFINED TABLE 
REFERENCED BY THE <TABLE POINTER>. THE CHARACTER IN QUESTION 
MAY BE EITHER A <STRING CHARACTER> OR A CHARACTER IN AN <ARRAY 
ROW> REFERENCED BY A <POINTER EXPRESSION>. THE <TABLE 
MEMBERSHIP> TEST REFERENCES A BIT IN MEMORY IN THE FOLLOWING 
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WAY: THE BINARY REPRESENTATION OF THE CHARACTER BEING TESTED 
IS SPLIT INTO TWO PARTS. THE LOW-ORDER 5 BITS BECOME A BIT 
INDEX, AND THE REMAINING HIGH-ORDER BITS BECOME A WORD INDEX. 
THE WORD INDEX IS ADDED TO THE <SUBSCRIPT> IN THE <TABLE 
POINTER>. THIS INDEXING OPERATION THUS SELECTS A WORD FROM 
THE TABLE. THE BIT INDEX IS THEN SUBTRACTED FROM 31 AND THE 
RESULT IS USED TO REFERENCE ONE OF THE LOW-ORDER 32 BITS IN 
THE SELECTED WORD. FINALLY, THE CHARACTER IS IN THE TABLE IF 
AND ONLY IF THIS REFERENCED BIT IS ON. 


THE <TABLE POINTER> CONSTRUCT ALLOWS SEVERAL TABLES TO BE 
CONTAINED IN ONE <ARRAY- ROW>. THE <SUBSCRIPTED VARIABLE> 
ALWAYS INDICATES THE BEGINNING OF THE DESIRED TABLE. ALPHA, 
ALPHA6, AND ALPHAS MAY BE THOUGHT OF AS RESERVED <SUBSCRIPTED 


VARIABLEDS. ALPHAS IS A <TABLE POINTER> FOR EBCDIC LETTERS 
AND DIGITS; ALPHA6 FUNCTIONS SIMILARLY FOR BCL LETTERS AND 
DIGITS. 

EXAMPLES: 


BOOLE - A EQV BEJ,1] 

A OR B 

IF K>1 THEN SOW ELSE L&C 
MCI] 


SIMPLE BOOLEAN EXPRESSION: 


UGO EQV I1GO 
NOT So 
WEGO OR HEGO EQV IGO EQV UGO 


IMPLICATIONS: 
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ITISRAINING IMP GROUNDISWET 
BOOVAR AND THIS IMP TOMORI 1,2] 
THIS IMP THAT IMP THOSE 


NOT SO 


BOOLEAN TERMS: 


a meee ee 


(B>C) OR (DOE) 
BOOV AND BOON OR BOOK 
Atl,2@] AND BVAR OR (NOT THT) OR YEST 


NOT SO 


BOOLEAN FACTORS: 


eee ee —e eee ee 


BOOV AND BOON 
NOT (J>2) AND TRUE 
ATJ+1,2-3] AND VARB AND NEXTM 


NOT SO 


BOOLEAN SECONDARIES: 


—_— ee ee ae ew ee eee ee 


FALSE 

X>V 

(NOT SQ) 

BOOVAR.Fe 

TRUE & CONGLOM( TRUE ,FALSE,Z+010, TRUE) 


BOOLEAN FIELD DESIGNATORS: 


ae eae ae ee —a—e wm ee eee ee 
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BAHK. LEFTMOST 
FRNT. FORTYON 


BOOLEAN FIELD OPERANDS: 


(IF K>1 THEN V<e ELSE (Ve2-DYNAM) ) 


BOOLVARB 
BOOFUNC(Q>V) 
CASE ZYGLOT OF 
BOOLEAN(FLAGWORD ) 


(TRUE, NOT SO, ETCETERA<Q) 


16 
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9.5. CASE EXPRESSIONS 


SYNTAX: 
<CASE EXPRESSION> ::= <CASE HEAD> (<EXPRESSION LIST)) 
<EXPRESSION LIST> ::= “ARITHMETIC EXPRESSION LIST> / 


<BOOLEAN EXPRESSION LIST> / <DESIGNATIONAL EXPRESSION LIST> / 
<POINTER EXPRESSION LIST> 


SEMANTICS: 


CASE EXPRESSIONS PROVIDE A CONVENIENT MEANS OF SELECTING ONE OF 
MANY ALTERNATIVE EXRESSTIONS OF THE SAME KIND TO BE EVALUATED AT A 
PARTICULAR POINT DURING EXECUTION. THE <EXPRESSION> TO BE 
EVALUATED IS SELECTED AS FOLLOWS: THE <ARITHMETIC EXPRESSION> IN 
AND INTEGERIZED BY S 

T VALUE IS THEN USED AS AN INDEX INTO 
THE <EXPRESSION LIST>. THE COMPONENT EXPRESSIONS OF THE 
<EXPRESSION LIST> ARE INDEXED SEQUENTIALLY FROM QO THROUGH N-1, 
WHERE N IS THE NUMBER OF EXPRESSIONS IN THE LIST. THE INDEXED 
<EXPRESSION> IS THEN EVALUATED AND ITS VALUE IS THE VALUE OF THE 
<CASE EXPRESSION>. IF THE VALUE OF THE INDEX LIES OUTSIDE THE 
RANGE GO TO N-1, ANYTHING CAN HAPPEN. THE ESPOL COMPILER DOES NOT 
EMIT “RANGE CHECKING CODE" WHICH VALIDATES THE EVALUATED 
<ARITHMETIC EXPRESSION>. 
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9.6. CONDITIONAL EXPRESSIONS 


<CONDITIONAL EXPRESSION> ::= <CONDITIONAL ARITHMETIC EXPRESSIOND>D / 
<CONDITIONAL BOOLEAN EXPRESSION>D / 
<CONDITIONAL DESIGNATIONAL EXPRESSION>D / 
<CONDITIONAL POINTER EXPRESSION) 


SEMANTICS: 


EXPRESSIONS OF THE FORM "<IF CLAUSE> <EXPRESSION> ELSE 
<EXPRESSION>" ARE CALLED CONDITIONAL EXPRESSIONS. DEPENDING UPON 
EITHER THE VALUE OF THE <BOOLEAN EXPRESSION> IN THE <IF CLAUSE> OR, 
IF ONE OR BOTH OF THE ALTERNATIVE EXPRESSIONS ARE THEMSELVES 
CONDITIONAL, THE VALUES OF THE BOOLEAN EXPRESSIONS IN SEVERAL IF 
CLAUSES, AN <EXPRESSION> IS SELECTED FOR EVALUATION. ALL THE 
ALTERNATIVE EXPRESSIONS MUST BE OF THE SAME TYPE. 


THE SELECTION PROCESS PROCEEDS AS FOLLOWS: FIRST, THE <BOOLEAN 
EXPRESSION> FOLLOWING THE FIRST "IF" IS EVALUATED; IF THE RESULTING 
VALUE IS TRUE, THE <EXPRESSION> FOLLOWING THE "THEN" IS EVALUATED 
AND THE <EXPRESSION> FOLLOWING “ELSE" IGNORED, OTHERWISE THE 
<EXPRESSION> FOLLOWING THE "ELSE" IS EVALUATED. IF EITHER OF THE 
ALTERNATIVE EXPRESSIONS IS CONDITIONAL, THE PROCESS IS REPEATED 
UNTIL AN UNCONDITIONAL <EXPRESSION> IS SELECTED FOR EVALUATION. 
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9.7. DESIGNATIONAL EXPRESSIONS 


<DESIGNATIONAL EXPRESSION> ::= <LABEL DESIGNATOR> / 
<CASE HEAD> (<DESIGNATIONAL EXPRESSION LIST>) 
<CONDITIONAL DESIGNATIONAL EXPRESSION> 
<CONDITIONAL DESIGNATIONAL EXPRESSION>D ::= 
<IF CLAUSE> <DESIGNATIONAL EXPRESSION> ELSE 
<DESIGNATIONAL EXPRESSION> 


/ 


<DESIGNATIONAL EXPRESSION LIST> ::= <DESIGNATIONAL EXPRESSIOND / 


<DESIGNATIONAL EXPRESSION LIST>, 
<DESIGNATIONAL EXPRESSION> 
<LABEL DESIGNATOR> ::= <LABEL IDENTIFIER> 


SEMANTICS: 


A DESIGNATIONAL EXPRESSION SPECIFIES A LABEL. 


OF oe: 
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9.8. POINTER EXPRESSIONS 


<POINTER EXPRESSION> ::= <CONDITIONAL POINTER EXPRESSION? / 
<SIMPLE POINTER EXPRESSION> 
<CONDITIOQNAL POINTER EXPRESSION>D ::= 
<IF CLAUSE> <POINTER EXPRESSION> ELSE <POINTER EXPRESSION> 
<SIMPLE POINTER EXPRESSION> ::= “POINTER PRIMARY> <SKIP> / 
<POINTER ASSIGNMENT> / <WORD ARRAY ROW) / 
<SUBSCRIPTED WORD VARIABLE> 
<POINTER PRIMARY> ::= “POINTER IDENTIFIER> / (€<POINTER EXPRESSION>) 
/ <CASE HEAD> (€ <POINTER EXPRESSION LIST> ) / 
<POINTER DESTIGNATOR> 
<SKIP> ::= <EMPTY> / “ADDING OPERATOR> <PRIMARY> 
<POINTER IDENTIFIER> ::= <IDENTIFIER> 
<POINTER DESIGNATOR> POINTER (€ “POINTER PARAMETERS? )} 
<POINTER PARAMETERS> <ARRAY PART> / <ARRAY PART>, 
<CHARACTER SIZE> 
<CHARACTER SIZE> ::= 4& / 6B / BB / * 
<ARRAY PART> ::= <ARRAY ROW> / <SUBSCRIPTED VARIABLED / 
<ARRAY IDENTIFIER? 
<SUBSCRIPTED WORD VARIABLE> ::= <SUBSCRIPTED VARIABLE> 
<ARRAY ROW> ::= <ARRAY IDENTIFIER>D [€ <ROW DESIGNATOR)? ] 
<ROW DESIGNATOR> * / €ROW>, * 
<WORD ARRAY ROW> ::= <ARRAY ROW> 
<ROW> ::= <ARITHMETIC EXPRESSION> / <ROW>, <ARITHMETIC EXPRESSION? 
<POINTER EXPRESSION LIST> ::= <POINTER EXPRESSION> / 
<POINTER EXPRESSION LIST> , <POINTER EXPRESSION> 
<POINTER ASSIGNMENT> ::= “POINTER VARIABLE> 
<REPLACEMENT OPERATOR> <POINTER EXPRESSION> 
<POINTER VARIABLE> ::= <VARIABLE> 
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A POINTER EXPRESSION ADDRESSES A CHARACTER POSITION WITHIN AN 
ARRAY ROW. 


AN IDENTIFIER USED AS A POINTER PRIMARY MUST BE OF TYPE 
POINTER. 


IF A POINTER EXPRESSION IS ENCLOSED IN PARENTHESES, IT IS 
EVALUATED FIRST AND ITS VALUE IS USED AS A PRIMARY. 


IF SKIP IS NOT EMPTY, THE POINTER VALUE IS ADJUSTED BY "L" 
CHARACTERS TO THE RIGHT OR LEFT, WHERE "L" IS THE ABSOLUTE 
VALUE OF THE ARITHMETIC EXPRESSION. IF THE ADDING OPERATOR IS 
+, SKIPPING IS TO THE RIGHT. IF THE OPERATOR IS -, SKIPPING 
IS TO THE LEFT. 


DESIGNATOR MAY BE USED TO CREATE A POINTER VALUE 
ERENCES A SPECIFIC CHARACTER POSITION IN AN ARRAY. 
INATOR HAS THREE FORMS: 


POINT 


= > 
xr 
oO 
= 
a 
ma om 
1 2 


POINTER(CA, L) YIELDS A POINTER VALUE "POINTING" TO A. A 
IS AN ARRAY IDENTIFIER WHICH MAY EITHER BE 
SUBSCRIPTED OR UNSUBSCRIPTED. L IS A 
CHARACTER LENGTH IN BITS” (FOUR, SIX, OR 
EIGHT, OR ANOTHER POINTER, IN WHICH CASE 
THE SIZE OF THAT POINTER IS USED. 


POINTER(A) YIELDS A POINTER WITH A’ CHARACTER SIZE 
FIELD SET TO ZERO. EBCDIC OR BCL DEFAULT 
CHARACTER SIZE WILL BE DETERMINED BY THE 
HARDWARE, BASED ON HOW THE POINTER IS USED. 


POINTER(A,*) SAME AS POINTER(A). 


POINTER THIS FORM PUTS THE SIZE FIELD OF 
(P1,Pe) POINTER Pe INTO POINTER Pl. 
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A POINTER MAY BE INITIALIZED EITHER BY A POINTER ASSIGNMENT OR 
BY APPEARING AS AN UPDATE POINTER IN A’ SCAN OR REPLACE 
STATEMENT OR A STRING COMPARISON. 
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9.9. REFERENCE EXPRESSIONS 


REFERENCE EXPRESSION> ::= NULL / “REFERENCE ASSIGNMENTD / 

<IF CLAUSE> <REFERENCE EXPRESSION> ELSE 

<REFERENCE EXPRESSION> / <REFERENCE VARIABLED / 

<ENTRY EXPRESSION> / <QUEUE DESIGNATOR> / 

REFERENCE (<VARIABLE>) / <FUNCTION DESIGNATOR>D / 

<WORD EXPRESSION> / (<REFERENCE EXPRESSION>) / 

REFERENCE ITEM> / <CASE HEAD> (<REFERENCE EXPRESSION LIST>) 
<ENTRY EXPRESSION> ::= <QUEUE NAME> (<ACTUAL ITEM LIST>) . 
<QUEUVE NAME> ::= <QUEUE IDENTIFIER> / QUEUE ARRAY IDENTIFIER> 
<ACTUAL ITEM LIST> ::= <ACTUAL PARAMETER LIST> 
<REFERENCE ASSIGNMENT> ::= <REFERENCE VARIABLE> 

<REPLACEMENT OPERATOR> <REFERENCE EXPRESSION> 
<QUEUE DESIGNATOR> ::= <QUEUE IDENTIFIERD>D / 

<QUEUVE ARRAY IDENTIFIER> [<ARITHMETIC EXPRESSIOND] 
<REFERENCE VARIABLE> ::= <VARIABLE> 
<REFERENCE ITEM> ::= <ITEM> 
<REFERENCE EXPRESSION LIST> ::= <REFERENCE EXPRESSIOND / 

<REFERENCE EXPRESSION LIST>, <REFERENCE EXPRESSION> 


SEMANTICS: 


1. A <REFERENCE EXPRESSION> POINTS TO A CONSTRUCT OR LOCATION. A 
"NULL" REFERENCE EXPRESSION POINTS AT NOTHING AND TO NOWHERE. 


2: A <QUEUVE DESIGNATOR> POINTS TO THE ENTRY AT THE HEAD OF THE 
DESIGNATED QUEUE. 


Ss AN <ENTRY EXPRESSION> CAUSES THE CREATION OF AN ENTITY HAVING 
THE FORMAT OF AN ENTRY IN THE NAMED QUEUE OR QUEUE ARRAY. A 
POINTER TO THIS POTENTIAL ENTRY IS RETURNED AS A <REFERENCE 
EXPRESSION>. 


4 THE 


"REFERENCE “ 
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TRANSFER FUNCTION 


EXPRESSION> POINTING TO A VARIABLE. 


EXAMPLES: 


QUEUE 


IF A > B THEN NEXTONE + 
NULL 
NEX TONE 
NEX TONE 
QUEUP (LOCAT,SIZEX) 
ARY[2,3] 

REFERENCE (BOOVARB) 
REFFUNCCARAY[2,7])) 

CASE Q(UV<-7+ATTINUM]] OF 
IF ARRAYROW IS NULL THEN 


-LASTONE 


EXPRESSION: 


QUNM CHERE, THERE, EVY) 


DESTGNATORS: 


QUNM 
DYNAM[ 3] 


GENERATES A 


(FIRSTONE, 


9= ue4 


<REFERENCE 


LASTONE ELSE NULL 


NEXTONE, LASTONE) 


<WORD 


<WORD 


<MOST 


<WORD 


<WORD 


SEMAN 


B= .25 
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WORD EXPRESSIONS 


EXPRESSION> ::= <WORD ASSIGNMENT> / <WORD VARIABLE>D / 
<WORD I1TEM> / <IF CLAUSE> <WORD EXPRESSION> ELSE 
<WORD EXPRESSION> / WORD (<MOST EXPRESSIONS>) / 
<FUNCTION DESIGNATOR> / <CASE HEAD> 

(<WORD EXPRESSION LIST>) / (<WORD EXPRESSION>) 
VARIABLE> ::= <VARIABLE> 

EXPRESSIONS> ::= <ARITHMETIC EXPRESSIOND / 

<BOOLEAN EXPRESSION> / <REFERENCE EXPRESSION>D / 
<ARRAY EXPRESSION> 

EXPRESSION LIST>::= <WORD EXPRESSION> / 

<WORD EXPRESSION LIST>, <WORD EXPRESSION> 
ASSIGNMENT> ::= 

<WORD VARIABLE> <REPLACEMENT OPERATOR> <EXPRESSION> 


TICS: 


A WORD EXPRESSION OBTAINS A WORD VALUE. 


A WORD VALUE IS REGARDED AS A 48-BIT FIELD WITH NO TYPE 
SIGNIFICANCE. 

A WORD TRANSFER N BEHAVES IN MUCH THE SAME MANNER AS 
ile SFER FUNCTIONS; I.E., IT SUPPRESSES 


ee at Pal a 


AL E 
SYNTAX CHECKING WHICH WOULD OTHERWISE BE INVOKED. 


A WORD VARIABLE 1S ACCESSED VIA AN LODT. HOWEVER NO SUCH 
ACTION MUST BE EXPECTED FOR THE EXPRESSION ASSOCIATED WITH THE 
WORD TRANSFER FUNCTION; THE CODE APPLICABLE TO THE EXPRESSION 


2. 
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WILL BE COMPILED. 


THERE IS NO GUARANTEE THAT <A CORRECTLY COMPILED 
EXPRESSION WILL PRODUCE VALID B6700/B7700 CODE. 


Q- 


WORD 


26 


THE 
THE 


ERR 
NO. 


100 
101 
102 
103 
110 
199 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 

ae 
312 
313 
314 
315 
316 
325 
326 
327 
328 


APPENDIX 


ee ee we we oe oe 


LEFTMOST DIGIT 


SECTION OF THE COMPILER 


ESPOL 
PROCEDURE 


TABLE 
STATEMENT 
PRIMARY 
BOOPRIM 
PASSFILE 


SCAN 

TABLE 

HOOK 

TABLE 

UNHOOQK 
ASSOCIATE 
ASSOCIATE 
GOBBLE 
GOBBLE 

SCAN 
DOLLARCARD 
DOLLARCARD 
DOLLARCARD 
DOLLARCARD 
READACARD 
FINDUSER 
DOLLARCARD 
STARTINCLUDING 
STARTINCLUDE 
STARTINCLUDING 
STARTINCLUDE 
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A 


e 
-— ee ee ee oe oe we 


COMPILER ERROR MESSAGES 


we ee ee oe ee oe we oe 


OF THE ERROR NUMBERS IS USUALLY THE NUMBER OF 


ERROR MESSAGE 


UNKNOWN 
SCANNER 
SCANNER 
SCANNER 
ILLEGAL 


IDENTIF 
ERROR 
ERROR 
ERROR 
FILE DE 


IN WHICH THE ERROR WAS DETECTED. 


ITER 


SIGNATOR 


PROCEDURE HAS NOT YET BEEN CODED 
IDENTIFIER OR NUMBER OF >63 CHARACTERS 
ILLEGAL CONSTRUCT 

TOO MUCH NESTING OF DEFINES 

NUMBER IS TOO LARGE 

EXTRANEOUS CROSSHATCH 


MISSING 
MISSING 
INVALID 
INVALID 
MISSING 
UNKNOWN 
INVALID 


080 
")" OR 
STRING 
STRING 
sal aN 
DOLLAR 
IDENTIF 


opm 
"J" OR TOO MANY PARAMETERS 
CHARACTER 

CODE OR ILLEGAL STRING SYNTA 
STRING 

CARD OPTION 

IER 


“BUMP TO" DOLLAR OPTION NOT FOLLOWED BY NUM 
>7 DIGITS IN AR 
SEQUENCE ERROR. 
USER OPTION MUST BE REFERENCED PREVIOUSLY 
INVALID GO ON A DOLLAR CARD 

INCLUDES TOO DEEPLY NESTED. 

MISSING ENDING SEQUENCE NUMBER ON INCLUDE C 


MISSING 


INCLUDE 


GUMENT TO "BUMP" DOLLAR OPT 


-FILE OPTION. 


INVALID INCLUDE-OPTION--IGNORED 
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ERR ESPOL 
NO. PROCEDURE ERROR MESSAGE 


340 LOADINFO 

350 ATTRIBMNEREF 
400 EMITTERS 

401 EMITV OR EMITN 
402 SUBSCRIBER 


LOADINFO MUST PRECEDE GLOBALS 
MNEMONIC FOR ATTRIBUTE VALUE EXPECTED 
TOO MUCH CODE IN THIS SEGMENT 
DISPLACEMENT TOO BIG 

MISSING BRACKET OR SUBSCRIPT 


403  DOTTER EXPRESSION NOT ARITHMETIC 

4O4 DOTIT ". "PERIOD NOT FOLLOWED BY FIELD IDENTIFIER 

405 PURGE LABEL DECLARED FORWARD NOT SEEN 

4O6 PURGE PROCEDURE DECLARED FORWARD NOT SEEN 

407 GETSPACE ILLEGAL ADDRESS-PART VALUE 

408 GETSPACE ILLEGAL ADDRESS-PART SYNTAX 

410 GETSPACE TOO MANY STACK CELLS AT THIS LEVEL 

415  GETSTACK TOO MANY TEMPORARIES IN USE AT ONE TIME 

420 PURGE COMPILER ERROR INVOLVING BAD GO TO LABEL 

501 IFCLAUSE MISSING "THEN" 

502 CASEHEAD EXPRESSION NOT ARITHMETIC 

503 CASEHEAD MISSING "OF" 

504 IFEXP MISSING "ELSE" 

505 EXPRESSION EXPRESSION IS NOT OF REQUIRED TYPE 

506 CASEXP MISSING "(" 

507 CASEXP MISSING ")" 

508 RELATION THIS EXPRESSION MAY NOT APPEAR IN A RELATIO 

509 RELATION THIS RELATION MAY USE ONLY "=" OF "#" 

510 RELATION MISSING "FOR" IN STRING RELATION 

511 RELATION ILLEGAL EXPRESSION TYPE 

512 BEXP EXPRESSION NOT BOOLEAN TYPE 

513 AEXP IF EXPRESSION NOT ARITHMETIC TYPE 

514 SIMPARITH ARRAY EXPRESSION MAY NOT BE SIGNED 

515 TERM ARRAY AND WORD EXPRESSIONS MAY NOT BE 
OPERATED UPON 

516  BOOSEC CANNOT NEGATE AN EXPR UNLESS ITS BOOLEAN 

517  BOOCOMP EXPRESSION NOT BOOLEAN | 

518 REXP VARIABLE NOT REFERENCE TYPE 
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ERR ESPOL 
NO. PROCEDURE ERROR MESSAGE 
519 REXP NOT ENOUGH SUBSCRIPTS ON REFERENCE ARRAY 
520 REXP REF EXPR CANNOT START WITH IDENTIFIER 
OF THIS TYPE 
521 REXP EXPRESSION NOT OF TYPE REFERENCE 
See REXP MISSING ")" 
523 REXP CASE EXPR NOT OF TYPE REFERENCE 
5e4 REXP IF EXPRESSION NOT OF TYPE REFERENCE 
525 REXP REF EXPR CANT START WITH THIS QUANTITY 
526 REXP MISSING "(" 
527 REXP CANNOT TRANSFER THIS TO TYPE REFERENCE 
52¢8 REXP NOT ENOUGH SUBSCRIPTS 
Se9 VARIABLE REGISTER ASSIGNMENT MUST BE 
LEFT-MOST ASSIGNMENT 
530 VARIABLE LEFT BRACKET DOES NOT FOLLOW 
ARRAY IDENTIFIER 
531 VARIABLE FIELD DESIGNATOR IS NOT LEFT-MOST 
IN LEFT-PART LIST 
532 VARIABLE A PROCEDURE IDENTIFIER IS USED 
OUTSIDE OF ITS SCOPE 
533 LAYITOUT "&" NOT FOLLOWED BY LAYOUT 
534 LAYITQUT MISSING "(" 
535 LAYITOUT MISSING ")" 
537 ENTRYEXP NOT YET CODED 
538 VARIABLE A VARIABLE IS NOT FOLLOWED BY A REPLACEMENT 
OPERATOR 
539 VARIABLE A READ ONLY ARRAY MAY NOT BE STORED INTO 
S40 PEXP EXPRESSION NOT POINTER TYPE 
S41  PTRCOMP SKIP PART NOT INTEGER OR REAL EXPRESSION 
S42 ITEMREFERENCE INCORRECT SYNTAX FOR AN ITEM REFERENCE 
543 ENTRYEXPR INCORRECT SYNTAX FOR ENTRY EXPRESSION 
S44 LAYITOUT EXPRESSION NOT OF REQUIRED TYPE 
545 VARIABLE POINTER IDENTIFIER MAY NOT BE SUBSCRIPTED 


S46 SETVARIABLE CANNOT MIX SETS OF VARYING SIZES 


ERR 
NO. 


547 
548 
549 
550 
551 
552 
553 
554 


555 
556 
557 
558 


559 


560 
561 


567 
573 
574 


575 
576 
577 


578 


ESPOL 
PROCEDURE 


SETVARIABLE 
VARIABLE 
ARRAYROW 
ARRAYROW 
LONGSTRING 
STRINGSOURCE 
ARI THCOMP 


TERM SIMPARITH 


PARTIALFIELD 
CONCATENATE 
PARTIALFIELD 
CONCATENATE 
PARTIALFIELD 
CONCATENATE 
PARTIALFIELD 
CONCATENATE 
PARTIALFIELD 
CONCATENATE 


PARTIALFIELD 
CONCATENATE 
PARTIALFIELD 
CONCATENATE 
VARIABLE 
REPLACESTMT 
SUBSCRIBER 


VARIABLE 
BITFIODLE 
BITFIDDLE 
BITFIDDLE 


OR 
OR 
OR 
OR 


OR 


OR 


OR 
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ERROR MESSAGE 


IN SAME EXP 

MISSING REPLACEMENT OPERATOR 

REGISTERS MAY NOT BE PARTIAL FIELDED 
MISSING LEFT BRACKET 

ARRAY ROW MUST HAVE 1 ASTERISK 

TOO MANY STRING CHARACTERS OR MISSING QUOTE 
STRING MUST BE 4-, 6-, OR 8-BIT CHARACTERS 
DOUBLE EXPRESSION MAY NOT BE DOTTED 

WORD EXPRESSIONS CONSIST OF 

WORD PRIMARY ONLY 


ILLEGAL BIT DESIGNATION EXPRESSN TYPE 
INVALID LEFT BIT VALUE SPECIFIED 
MISSING COLON 

INVALID NUMBER OF BITS SPECIFIED 


NUMBER OF BITS SPECIFIED IS TOO LARGE 
FOR SPECIFIED LEFT BIT VALUE 


MISSING LEFT BRACKET 


MISSING RIGHT BRACKET 

EVENTS MAY NOT BE PARTIAL FIELDS 
MISSING COMMA OR SEMICOLON 

ACTUAL SUBSCRIPT(S) MUST PRECEDE ROW 
DESIGNATOR(S) 

FIELDS MAY NOT BE DUPLICATED AND LOADED 
MISSING "(" 

MISSING "," 

BAD BIT NUMBER. 


ERR 
NO. 


5793 
580 
581 


582 
600 
601 
60e 
603 
604 


605 


607 


608 
609 
610 
611 
6le 
613 
6i4 
615 
616 
617 
618 
619 
620 


621 


622 
623 


ESPOL 
PROCEDURE 


BITFIODDLE 
VARIABLE 
VARIABLE 


VARIABLE 
CASESTMT 
CASESTMT 
CASESTMT 
PROCALL 
PROCALL 


ACTUAL PARAPART 


ACTUAL PARAPART 


FORSTMT 
FORSTMT 
FORSTMT 
FORSTMT 
LABELR 
LABELR 
LABELR 
GOSTMT 
GOSTMT 
GOSTMT 
GOSTMT 
GOSTMT 


ACTUAL PARAPART 


ACTUAL PARAPART 


ACTUALPARAPART 
ACTUAL PARAPART 
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ERROR MESSAGE 


MISSING ")" 

IDENTIFIER EXPECTED 

PARTIAL FIELD FOR COMPILETIME VARIABLE 
MUST BE A CONSTANT 

COMPILETIME VARIABLE MUST BE CONSTANT 
MISSING SEMICOLON 

MISSING "BEGIN" 

TOO MANY STATEMENTS 

ILLEGAL USE OF PROCEDURE IDENTIFIER 
EITHER ACTUAL OR FORMAL PARAMETERS DO NOT 
AGREE AS TO NUMBER, OR EXTRA ")" 

ACTUAL AND FORMAL ARRAYS DO NOT HAVE 
SAME NUMBER OF DIMENSIONS 

NO ACTUAL PARAMETERS MAY START WITH 

A QUANTITY OF THIS TYPE 

IMPROPER FOR INDEX VARIABLE 

MISSING UNTIL OR WHILE IN STEP ELEMENT 
MISSING DO IN FOR CLAUSE 

MISSING LEFT ARROW FOLLOWING INDEX VARIABLE 
MISSING COLON 

THE LABEL WAS NOT DECLARED IN THIS BLOCK 
THE LABEL HAS ALREADY OCCURRED 

LABEL OR CASE DOES NOT FOLLOW GO TO 
IMPROPER GO TO WITH CASE 

MISSING "(" 

ONLY A LABEL MAY APPEAR IN THE LIST 
MISSING ")" 

ACTUAL PARAMETER IS INTRINSIC PROCEDURE 
(NOT ERROR) 

TEMPORARY ABSENCE OF CODE FOR THIS 

(NOT ERROR) 

TYPE OF ACTUAL AND FORMAL PARAMS DONT AGREE 
ILLEGAL PARAMETER DELIMITER 


ERR 
NO. 


624 


625 


626 
6e7 
628 
629 


630 


631 
632 
633 
634 
635 
636 
637 
638 


639 


640 


641 
642 


643 
644 
645 
646 
647 
648 
649 
650 
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ESPOL 
PROCEDURE ERROR MESSAGE 
COMPOUNDTAIL MISSING SEMICOLON OR END 
COMPOUNDTAIL EXTRA END 
COMPOUNDTAIL MISSING END 
QUEVEDEC INTERRUPTEDEC TRYING TO GO BEYOND LEVEL 31 
QALGORITHM THIS ALGORITHM IS NOT VALID FOR THIS QUEUE 
QALGORITHM MISSING ACTUAL PARAMETER PART 
IN EXPLICIT CALL 
QALGORITHM FIRST ACTUAL PARAMETER OF 
QALGORITHM IS ILLEGAL 
FORSTMT ILLEGAL FOR CLAUSE 
FORSTMT ILLEGAL EXPRESSION TYPE 
QALGORITHM TOO MANY ACTUAL PARAMETERS 
QALGORITHM ILLEGAL PARAMETER DELIMITER 
QALGORITHM TOO MANY ACTUAL PARAMETERS 
REPLACESTMT POINTER IDENTIFIER REQUIRED 
REPLACESTMT MISSING KEY WORD "BY" 
REPLACESTMT UPDATE SOURCE MUST BE POINTER OR 
SIMPLE VARIABLE 
REPLACESTMT POINTER SOURCE MUST BE UPDATED BY A 
POINTER OR WORD 
REPLACESTMT SOURCE MUST BE POINTER OR 
ARITHMETIC EXPRESSION 
REPLACESTMT CONDITION OR COUNT NEEDED 
REPLACESTMT UPDATED COUNT MUST BE FOLLOWED 
BY A CONDITION 
SCANSTMT POINTER IDENTIFIER REQUIRED 
SCANSTMT SIMPLE ARITHMETIC VARIABLE REQUIRED 
SCANSTMT CONDITION MISSING 
SCANSTMT RELATIONAL OPERATOR OR IN EXPECTED 
SCANSTMT STATEMENT TERMINATOR REQUIRED 
QALGORITHM BUSY AND SIZE MUST BE USED AS PRIMARIES 
QALGORITHM INCORRECT USAGE OF UNTYPED QUEUE ALGORITHM 


SCANSTMT IN EXPECTED 


ERR 
NO. 


651 


652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 


669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 


ESPOL 
PROCEDURE 


REPLACESTMT 


REPLACESTMT 
REPLACESTMT 
REPLACESTMT 
REPLACESTMT 
FILLSTMT 
FILLSTMT 
FILLSTMT 
FILLSTMT 
FILLSTMT 
SWAPSTMT 
SWAPSTMT 
SWAPSTMT 
SWAPSTMT 
SWAPSTMT 
THRUSTMT 
FORSTMT 
FORSTMT 


QALGORITHM 
EVENTINTRINSIC 
EVENTINTRINSIC 
EVENTINTRINSIC 
CLOSESTMT 
FORMATANDL IST 
READWRITESTMT 
READWRITESTMT 
READWR-SPACE 
READWRITESTMT 
REAOWRITESTMT 
EVENTINTRINSIC 
BLOCK 
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ERROR MESSAGE 


————— wwe ee eH 


TOO MANY (OR WRONG ORDER OF) ELEMENTS:SOURC 
OR ELEMENTS IN WRONG ORDER 

UPDATE COUNT MUST BE REAL OR INTEGER 

THIS CONSTRUCT REQUIRES AN ARITHMETIC SOURC 
RELATIONAL OP OR IN EXPECTED 

PICTURE IDENTIFIER REQUIRED 

TOO MANY WORDS OF INITIAL VALUES 

INITIAL VALUE MUST BE NUMBER OR STRING 
MISSING RIGHT PARENTHESIS 

ARRAY ROW REQUIRED 

MISSING "WITH" 

MISSING LEFT PARENTHESIS 

ARRAYID OR SUBARRAY DESIGNATOR REQUIRED 
MISSING COMMA - 

MISSING RIGHT PARENTHESIS 

NUMBER OF UNSPECIFIED SUBSCRIPTS MUST AGREE 
MISSING DO IN A THRU CLAUSE 

MISSING UNTIL FOLLOWING A BY ELEMENT 
CONTROL VARIABLE IS NOT SIMPLE IN BY 
ELEMENT LIST 

BUZZ IS UNTYPED 

THE PARAMETER MUST BE AN EVENT DESIGNATOR 
THE PARAMETER MUST BE AN INTERRUPT ID 
MISSING LEFT OR RIGHT PARENTHESIS 
UNRECOGNIZED PARAMETER 

ILLEGAL CONSTRUCT OF DIRECT READ-WRITE STMT 
EVENT LEVEL GTR THAN DIRECT ARRAY LEVEL 
SEEK STMT MUST HAVE ADDRESS PART 

SEEK OR SPACE MUST HAVE NON-DIRECT FILE 
SEEK MAY NOT HAVE FORMAT 

DIRECT I-O CANNOT BE USED AS PRIMARY 
SECONDWORD EXPECTS EVENT OR DP PARAMETER 
LEVEL 1 BLOCK NOT ALLOWED 


ERR 
NO. 


682 
683 
684 


685 
686 


687 
690 


691 
692 
694 
700 
701 
70e 


703 
704 
705 
706 
707 
708 
710 
711 
71e 
713 


714 
715 
7i7 
718 
719 


ESPOL 
PROCEDURE 


SPACESTMT 
EMITDB16 


INTRNSC 


ONSTMT 


ATTCHSTMT 
ATTCHSTMT 
FILEPART 
IDLIST 
MERRIMAC 
MERRIMAC 


FIELOPART 
FIELDER 
LAYOUTDEC 
LAYOUTDEC 
LAYOUTDEC 
PUTOGETHER 
DEF INEDEC 
QUEVEDEC 
QUEVEDEC 
QUEVEDEC 


QUEVEDEC 
QUEVEDEC 
ARRAY DEC 
READONLYARRAYDEC 
READONLYARRAYDEC 
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ERROR MESSAGE 


—_—— eee _——e ee eS 


SPACE MAY NOT HAVE BRACKET PART 

LABEL NOT ON HALF WORD BOUND(USE "::" ) 
MISSING "(" IN CALL ON TRANSFER FUNCTION, 
INTRINSIC FUNCTION, OR PROCEDURE 

MISSING COMMA AFTER PARAMETER 

MISSING ")" IN AN EXPRESSION OR A FUNCTION 
FUNCTION CALL PARAMETER LIST 

UNRECOGNIZED FAULT IDENTIFIER 
ATTACHSTMT-DETACHSTMT-INTERRUPTDEC) 
INTERRUPT IDENTIFIER REQUIRED 

MISSING "TO" 

EVENT DESIGNATOR REQUIRED 

ILLEGAL FILE PART 

THIS ID ALREADY DECLARED IN THIS BLOCK 
PARENTHESES PROBLEM 

INCORRECT TYPE OR PROCEDURE OR 


MONITORED ITEM 

INCORRECT "FIELD PART" 

INCORRECT "FIELD”"-VALUE OR SYNTAX 
INCORRECT "LAYOUT PART" 


“FIELD VALUE" IS NOT UNSIGNED INTEGER 
ILLEGAL LAYOUT PART 

TOTAL ALPHA LONGER THAN 2047 CHARACTERS 
EQUAL SIGN EXPECTED 

ILLEGAL MULTIPLE USE OF IDENTIFIER 
MISSING ENTRY DESCRIPTION 

MULTIPLE USE OF SAME ALGORITHM ID 

IN QUEUE DEC 

INCORRECT USAGE OF STANDARD QUEUE ALGORITHM 
THIS CONTRUCT NOT CODED AS YET (NOT ERROR) 
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APPENDIX C. SYNTAX OF THE ESPOL LANGUAGE 


THIS APPENDIX CONTAINS IN LOGICAL ORDER THE COMPLETE SYNTAX FOR THE 
ESPOL LANGUAGE. THE NUMBER TO THE LEFT OF EACH SYNTACTICAL FORMULA 
IS THE LINE NUMBER REFERRED TO BY APPENDIX D. THE NUMBER(S) TO THE 
RIGHT REFERS TO OTHER LINE NUMBER(S) IN THIS APPENDIX THAT DEFINE 
THE VARIOUS ITEMS OF THE FORMULA. 
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<PROGRAM> t= <@LQCK> , <SPACE> 
7 <COMPOUND STATEMENT> , <SPACE> 

<BLOCK> 835 <BLOCK HEAD> 8 <COMPOUND TAIL> 
“<SPACE> 38 <SINGLE SPACE> 

/ “SPACE> <SINGLE SPACE> 
<COMPOUND STATEMENT> tt BEGIN <COMPOQUND TAIL> 
<BLOCK HEAD> tim BEGIN <DECLARATION> 

/ <BLOCK HEAD> 3 <DECLARATION> 


<CUMPOUND TAIL> tt® <STATEMENT> END 


/ <STATEMENT> § <COMPQUND TAIL> 
“SINGLE SPACE> s38 SONE HORIZONTAL BLANK POSITION2 
“<DECLARATION> tt <ARRAY DECLARATIOND 
/ <DEFINE DECLARATION> 
<DEFINE INVOCATION> 
<DIRECT ARRAY DECLARATION? 
<EVENT DECLARATION> 
SEVENT ARRAY DECLARATIOND 
<FIELO DECLARATION> 
<FILE DECLARATION> 
<INTERRUPT DECLARATION®> 
“LABEL DECLARATION> 
“LAYOUT DECLARATION> 
<MONITOR DECLARATION> 
<PICTURE DECGLARATION> 
<PROCEQURE DECLARATION> 
“QUEUE ARRAY DECLARATION> 
“QUEUE DECLARATION? 
“TYPE DECLARATION> 
/ “VALUE ARRAY DECLARATION> 

“<STATEMENT> $38 <CONDITIONAL STATEMENT? 

/ <UNCONDITIONAL STATEMENT> 


~ =n SN SN SN ON OS SH NA ON ON ON ON ORO! 


“ARRAY DECLARATION> 13:8 <ARRAY KIND> ARRAY <ARRAY LIST> 


“DEFINE DECLARATION> tte DEFINE <DEFINITION LIST> 


SOEFINE INVOCATION> S80 <DEFINED IDENTIFIER> <ACTUAL TEXT PART> 
SOIRECT ARRAY DECLARATION> ##= DIRECT <DIRECT ARRAY KIND> ARRAY 


“ARRAY LIST> 
SEVENT DECLARATION> ta= <EVENT IDENTIFIER LIST> 


SEVENT ARRAY DECLARATION> #8© EVENT ARRAY <EVENT SEGMENT LIST> 


<FIELU DECLARATION> t= FIELD <FIELD PART LIST> 


SFILE DECLARATION> tte <DIRECT SPECIFIER> FILE <FILE LIST> 
SINTERRUPT DECLARATION> !3= INTERRUPT <INTERRUPT SEGMENT> 


© © MW oaeaewN wi f& Wh 


fF WwW WW ww WY WY | | & AH fk NUN UN UR UR RD el le tl le 
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31 


34 


40 
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19 <LABEL DECLARATION> ts LABEL <LABEL LIST> 
20 “LAYOUT DECLARATION> t8# LAYOUT <LAYOUT PART LIST> 
21 SMONITUR DECLARATION> 822 MONITOR <PROCEDURE IDENTIFIER> ¢ 
<MONITOR LIST> } 
22 “PICTURE DECLARATION> 88 <SAVE OR QWN> PICTURE <PICTURE PAakT LIST> 
<PROCEDURE DECLARATION> 13® <SAVE PART> <PROCEDURE TYPE> PRUCEDURE 
<PROCEDURE HEADING> <PROCEDURE BODY> 
24 <QUEUE ARRAY DECLARATION> 83 QUEUE ARRAY <QUEUE ARRAY HEAD> [ 
<INDEX BOUND> ) <QUEUE BODY> 
25 SQUEVE DECLARATION> 81 QUEUE <QUEUVE HEAD> <QUEUE BUDY> 
26 <TYPE DECLARATION> t1@ «<TYPE> <TYPE LIST> 
/ OWN <TYPE> <TYPE LIST> 
27 <VALUE ARRAY DECLARATION> tt <ARRAY SAVE PART> <VALUE TYPE> VALUE 
ARRAY <VALUE ARRAY PART LIST> 
28 <CONDITIONAL STATEMENT> tts <IF CLAUSE> <STATEMENT> 
/ <IF CLAUSE> <UNCONDITIONAL STATEMENT> 
ELSE <CONDITIONAL STATEMENT? 
7 <CONDITIONAL ITERATION> 
ae / <LABEL> & <CONDITIONAL STATEMENTS 
29 SUNCONOITIONAL STATEMENT> 888 <EMPTY> 
/ <IF CLAUSE> <UNCONDITIONAL STATEMENT> 
ELSE <UNCONDITIONAL STATEMENT> 
<LABEL> & UNCONDITIONAL STATEMENT> 
<ASSIGNMENT STATEMENT> 
<BASIC STATEMENT> 
<BLOCK> 
<COMPOUND STATEMENT> 
<DEFINE INVOCATION> 
<EVENT STATEMENT> 
<FORK STATEMENT> 
<FUNCTION DESIGNATOR> 
<I/0 STATEMENT> 
/ <INTERRUPT STATEMENT? 
<ON STATEMENT> 
<PROCEDURE STATEMENT> 
<REPLACE STATEMENT> 
<SCAN STATEMENT> 
<UNCONDITIONAL ITERATION> 


2 


Ww 


a 


~~ SN ON ON NON ON ON NON ON ON ON ONO ONON 


30 <ARRAY KIND> tts <EMPTY> 
/ <LOCAL OR OWN TYPE> 
/ SAVE <LOCAL OR OWN TYPE> 


29 


28 


29 


29 
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31 SARRAY LIST> sta <ARRAY SEGMENT 
/ <ARRAY LIST> » <ARRAY SEGMENT> 
/ <INITIALIZED ARRAY> 
/ SARRAY LIST> » <INITIALIZED ARRAY> 
32 <OEFINITION LIST> 83" <QEFINITION> 
/ <DEFINITION LIST> » <DEFINITION> 
33 <DEFINED IDENTIFIER> tt <IDENTIFIER> 
34 <ACTUAL TEXT PART> ttm <EMPTY> 
4 ¢ <CLOSED TEXT LIST> ) 
/ t <CLOSED TEXT LIST> J 
35 <DIRECT ARRAY KIND> ts <EMPTY> 
/ <TYPE> 


36 <EVENT IDENTIFIER LIST> t8® <EVENT IDENTIFIER> <ADDRESS PART> 
/ <EVENT LIST> » <EVENT JDENTIFIER> 


<ADDRESS PART> 
37<EVENT SEGMENT LIST> tim <EVENT SEGMENT> 


7 sSEVENT SEGMENT LIST> » <EVENT SEGMENT> 


38 <FIELO PART LIST> t8= <FIELD PART> 
/ <FIELD PART LIST> » <FIELD PaRT> 
39 <DIRECT SPECIFIER> tta <EMPTY> 
/ DIRECT 
40 <FILE LIST> tam «FILE LIST PART? 
/ <FILE LIST> » <FILE LIST PART> 
41 “INTERRUPT SEGMENT> It <INTERRUPT IDENTIFIER> 3 <STATEMENT? 
42 SLABEL LIST> tts <LABEL IDENTIFIER> 
/ <LABEL LIST> » <LABEL IDENTIFIER> 
43 <LAYOUT PART LIST> ttm <LAYOUT PART> 
/ <LAYOUT PART LIST> » <LAYOUT PART> 
44 <PROCEOURE IDENTIFIER> tt= <IDENTIFIER> 
45 <MONITOR LIST> 828 <MONITORED ITEM> 
/ <MONITOR LIST> » <MONITORED ITEM> 
46 “SAVE OR OWN> tes SAVE 
/ OWN 
47 <PICTURE PART LIST> t= <PICTURE PART> 


7 <PICTURE PART LIST> » <PICTURE PART> 


48 <SAVE PART> 868 <EMPTY> 
/ SAVE 
/ SAVE 1 
49 “PROCEDURE TYPE> t¢e= <EMPTY> 
4 <TYPE> 


50 “PROCEDURE HEADING> tts <PROCEDURE IDENTIFIER> <ADDRESS PART> 
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<FORMAL PARAMETER PART> 3 


<PROCEOURE BODY> t3= «<STATEMENT> 


“QUEUE 
<INDEX 
<QUEUE 
<QUEUVE 
<TYPE> 


/ FORWARD 
/ EXTERNAL 
7 NULL 
ARRAY HEAD> tim <QUEUE ARRAY IDENTIFIER> <INTERNAL NAME PART> 
BOUND> tt <ARITHMETIC EXPRESSION> 
BOOY> 23m <ENTRY DESCRIPTION> 3 <ALGORITHM PART> 
HEAD> 8m <QUEUVE IDENTIFIER> <INTERNAL NAME PART> 
tim BOOLEAN 
/ DOUBLE 
EVENT 
INTEGER 
NAME 
POINTER 
REAL 
REFERENCE 
WORD 


~~ ON SN ON NON 


<TYPE LIST> t32 <TYPE PART> 


/ <TYPE LIST> » <TYPE PART> 


“ARRAY SAVE PART> f3m <EMPTY> 


<VALUE 


4 SAVE 


TYPE> ¢3= REAL 


/ INTEGER 
/ QOUBLE 
/ BOOLEAN 


<VALUE ARRAY PART LIST> !3@ <VALUE ARRAY IDENTIFIER? 


<REPLACEMENT OPERATOR> (€ <CONSTANT LIST> 
) 

/ <VALUE ARRAY IDENTIFIER ¢ 
<CONSTANT LIST> ) 


<IF CLAUSE> 12:8 ITF <BOOLEAN EXPRESSION> THEN 

<CONDITIONAL ITERATION> t= <ITERATION CLAUSE> <CONDITIONAL STATEMENT? 
“<LABEL> t2= <LABEL IDENTIFIER> 

<EMPTY> t3@ STHE NULL STRING OF CHARACTERS? 

“ASSIGNMENT STATEMENT> 24@ <ARITHMETIC ASSIGNMENT STATEMENT? 


/ <ARRAY ASSIGNMENT STATEMENT> 

/ <BUOLEAN ASSIGNMENT STATEMENT> 
/ <QUEVE ASSIGNMENT> 

/ <REFERENCE ASSIGNMENT> 

/ <WORD ASSIGNMENT> 


95 
9? 
98 
100 


101 
57 
64 


102 
103 


102 
104 
105 
106 

$6 


10? 
108 
109 
110 
111 
112 


96 


99 
96 


101 


104 


28 


66 <BASIC STATEMENT> 
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67 <EVENT STATEMENT> tts 


68 
69 


70 


71 


72 


73 


74 


75 


76 


77 


78 


<FORK STATEMENT> 2828 FORK <PROCEDURE STATEMENT> ( <FORK PARAMETERS> ] 


/ 
/ 


sts <GO TO STATEMENT> 


<DUMMY STATEMENT> 
<CASE STATEMENT> 


<SET STATEMENT> 


/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 


f 


<RESET STATEMENT> 

<CAUSE STATEMENT> 
<CAUSEANDRESET STATEMENT> 
<WAIT STATEMENT> 
<WAITANDRESET STATEMENT> 
<OSWAIT STATEMENT> 
<OSWAITANDRESET STATEMENT> 
<PROCURE STATEMENT> 

<FIX STATEMENT> 

<LIBERATE STATEMENT> 
<FREE STATEMENT? 


<FUNCTIUN DESIGNATOR> ti” <FUNCTION IDENTIFIER> 


<ACTUAL PARAMETER PART> 


<1/0 STATEMENT? 322 <CLOSE STATEMENT? 

<LOCK STATEMENT> 

<READ STATEMENT? 
“REWIND STATEMENT? 
<SEEK STATEMENT? 
<SPACE STATEMENT> 
<WRITE STATEMENT> 

tse <ATTACH STATEMENT> 


/ 


~ NO O~N ONO 


<INTERRUPT STATEMENT> 


/ SDETACH STATEMENT? 
/ SENABLE STATEMENT> 
/ <DISABLE STATEMENT> 


<ON STATEMENT> 88 ON <FAULT NAME> 
/ ON <FAULT NAME> » <STATEMENT> 
<PROCEDURE STATEMENT> it: <PROCEDURE IDENTIFIER> 


“REPLACE STATEMENT> tt= REPLACE <DESTINATION> BY <SOURCE LIST> 


SACTUAL PARAMETER PART> 


<SCAN STATEMENT> 832@ SCAN <SOURCE> <SCAN PART> 
<UNCONDITIONAL ITERATION> $8® <DO STATEMENT> 


/ “ITERATION CLAUSE> 
<UNCONDITIONAL STATEMENT> 


<LUCAL UR OWN TYPE> t2@ <TYPE> 


ARRAY SEGMENT> 888 <ARRAY IDENTIFIER> <ADDRESS PART> C€ <BOUND LIST> ] 


/ OWN <TYPE> 
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73 
129 
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106 

29 

56 
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/ SARRAY IDENTIFTER> <ADORESS PART> , 
<ARRAY SEGMENT> 
<INITIALIZED ARRAY> t48@ <ARRAY IDENTIFIER> <REPLACEMENT OPERATOR> ( 
<CONSTANT LIST> ) 
<DEFINITION> t8= <DEFINEO IDENTIFIER> <FORMAL SYMBUL PART> = <TEXT> # 
<IDENTIFIER> st! <LETTER> 
/ <IDENTIFIER> <LETTER> 
/ <IDENTIFIER> <DIGIT> 
<CLOSED TEXT LIST> tia <CLOSED TEXT> 
/ <CLOSED TEXT LIST> » <CLOSED TEXT> 
“EVENT IDENTIFIER> t82 <IDENTIFIER> 
<ADDRESS PART> 832 <EMPTY> 
/ # <ADORESS> 
“EVENT LIST> t82 <EVENT DESIGNATOR> 
/ <EVENT LIST> » <EVENT DESIGNATOR? 
“EVENT SEGMENT> t= <EVENT ARRAY LIST> C <BOUND LIST> J 
<FIELD PART> tim <FIELD IDENTIFIER> = <FIELD> 
<FILE LIST PART> t82 <FILE DESIGNATOR? 
/ <FILE DESIGNATOR> € <INITIAL ATTRIBUTE LIST> ) 
<INTERRUPT IDENTIFIER> st <IDENTIFIER> 
“LAYOUT PART> tim <LAYQUT IDENTIFIER> (€ <LAYOUT ITEM LIST> 2 
<MONITORED ITEM> tix <SIMPLE VARIABLE> 
/ <ARRAY IDENTIFIER> 
<PICTURE PART> t38 <PICTURE IDENTIFIER> ( <PICTURE> ) 
<FORMAL PARAMETER PART> !t6@ <EMPTY> 
/ ©- <FORMAL PARAMETER LIST? ) 3 
<VALUE PART> <SPECIFICATION PART> 
“QUEUE ARRAY IDENTIFIER> 23 <IDENTIFIER> 
<INTERNAL NAME PART> tim <EMPTY> 
/ 4% <SECOND NAME> <ADDRESS PART> 
SARITHMETIC EXPRESSION> 32” <CONDITIONAL ARITHMETIC EXPRESSION> 
/ <ARITHMETIC ASSIGNMENT> 
/ <SIMPLE ARITWMETIC EXPRESSIGN> 
7 <WORD EXPRESSION> 
<ENTRY DESCRIPTION> tte ( <ENTRY ITEM LIST> ) 3 <VALUE PART> 3 
<SPECIFICATION PART> 
<ALGORITHM PART> t28 <EMPTY> 
/ USING <ALGURITHM LIST> 
<QUEVE IDENTIFIER> t8e <IDENTIFIER> 
<TYPE PART> t8= <TYPE IDENTIFIER> <ADDRESS PART> 


155 
156 


157 
158 
160 
160 

at 


ad 
Gs 


162 
164 
148 
165 

64 
167 
168 

gi 

64 
170 
171 
172 
173 
174 
175 
169 

64 
176 

al 
177 


150 


152 
153 


154 


156 


149 


159 


161 


163 


166 


84 


168 


84 


151 


103 


104 


105 


106 


107 


108 


109 


110 


111 


112 


113 


114 


115 


116 
117 


118 
119 


120 
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/ <TYPE ITOENTIFIEk> <REPLACEMENT OPERATOR> 
<INITIAL VALUE> 
“<VALUE ARRAY IDENTIFIER> tt <IDENTIFIER> 
“REPLACEMENT OPERATOR> it ¢ 
/ts 
fer 
/ tear 
<CONSTANT LIST> t= <CONSTANT> 
/ <CONSTANT LIST> » <CONSTANT?> 
<BOOLEAN EXPRESSION> tte <CONDITIONAL BOOLEAN EXPRESSION> 
7 <BOOLEAN ASSIGNMENT> 
/ <SIMPLE BOOLEAN EXPRESSION> 
7 <WORD EXPRESSION? 
<ITERATION CLAUSE> 88 <WHILE PART> 00 
/ <FOR CLAUSE> 00 
/ <THRU CLAUSE> DO 
“ARITHMETIC ASSIGNMENT STATEMENT> tt <ARITHMETIC ASSIGNMENT> 
/ “ARITHMETIC FIELD ASSIGNMENT> 
SARRAY ASSIGNMENT STATEMENT> 888 <ARRAY ASSIGNMENT? 
; / SARRAY FIELD ASSIGNMENT> 
<BOOLEAN ASSIGNMENT STATEMENT> 882 <BOOLEAN ASSIGNMENT? 
/ <BOOLEAN FIELD ASSIGNMENT> 
<QUEVE ASSIGNMENT> tie <QUEUVE DESIGNATOR> <REPLACEMENT OPERATOR> 
“REFERENCE EXPRESSION> 
“REFERENCE ASSIGNMENT> ti= <REFERENCE VARIABLE> <REPLACEMENT OPERATOR> 
“REFERENCE EXPRESSION? 
<WORD AGSIGNMENT> 3¢# <wORD VARIABLE> <REPLACEMENT OPERATOR? 
<EXPRESSION> 
<GO TO STATEMENT> t3= GO <TO PART> <DESIGNATIONAL EXPRESSION> 
/ GO <TO PART> <CASE HEAD> ¢ 
<DESIGNATIONAL EXPRESSION LIST> ) GO <TO PART> 
<WORD VARIABLE> 
“DUMMY STATEMENT> t88= <EMPTY> 
4 <DUMMY STATEMENT> <LABEL> 3 
<CASE STATEMENT> 888 <CASE HEAD> <COMPOUND STATEMENT> 
“SET STATEMENT> t#= SET ( <EVENT DESIGNATUR> ) 
“RESET STATEMENT> sf RESET ( <EVENT DESIGNATOR> ) 
<CAUSE STATEMENT> 88% CAUSE ( <EVENT DESIGNATOR> ) 
<CAUSEANDRESET STATEMENT> #88 CAUSENRESET ( <EVENT DESIGNATUR>D ) 
<WAIT STATEMENT> t22 <WAITONEVENT STATEMENT> 
; / sWAITONTIME STATEMENT> 


177 
178 
61 


103 


179 


123 


124 


125 
126 


127 
128 


129 
130 


131 


132 


137 


138 


139 
140 
141 
142 
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<WAITANDRESET STATEMENT> tts <WAITANDRESET@SIMPLE STATEMENT? 
7 <WAITTANDRESET*COMPLEX STATEMENT> 
<OSWAIT STATEMENT> t1m <OSWAIT*SIMPLE STATEMENT> 
/ <DSWAIT*COMPLEX STATEMENT> 
<DSWALTANDRESET STATEMENT> 22m <DSWAITANDRESET*SIMPLE STATEMENTS 
7 <DSWAITANDRESET*COMPLEX STATEMENT> 
<PROCURE STATEMENT> tt PROCURE € <EVENT DESIGNATOR> ) 
<FIX STATEMENT> at@ FIX € <EVENT DESIGNATOR> ) 
<LIBERATE STATEMENT> tia LIBERATE € <EVENT DESIGNATOR> ) 
SFREE STATEMENT> S828 FREE (€ <EVENT DESIGNATOR> ) 
<FORK PARAMETERS> st@ <STACK SIZE> » <PRIORITY> <VISIBLE NAME INDEX> 
SFUNCTIUN IDENTIFIER> t3@ <IDENTIFIER> 
<ACTUAL PARAMETER PART> tia <EMPTY> 
7 © <ACTUAL PARAMETER LIST> ) 
<CLOS& STATEMENT> 838 CLOSE (€ <FILE DESIGNATOR? ) 
/ CLOSE ( <FILE DESIGNATOR> » <CLOSE GPTION> 3} 
<LUCK STATEMENT> 84 LOCK € <FILE DESIGNATOR? ) 
4 LOCK € <FILE DESIGNATOR> » * ) 
“READ STATEMENT> t28 READ (€ <FILE PART> » <wWORD COUNT> » <I/0 AREA> ) 
: <1/0 FINISH EVENT> 
<KEWIND STATEMENT> Sm REWIND { <FILE DESIGNATOR> ) 
SSEEK STATEMENT> t8@ SEEK ( <FILE DESIGNATOR> { <RECORD NUMBER> } ) 
<SPACK STATEMENT> sta SPACE ( «<FILE DESIGNATOR> » 
<ARITHMETIC EXPRESGION> ) 
“WRITE STATEMENT> t8a WRITE ( <FILE PART> » <wORD COUNT> » <I/0 AREA? 
) <I1/0 FINISH EVENT> 
<ATTACH STATEMENT> tia ATTACH <INTERRUPT IDENTIFIER> TO 
<EVENT DESIGNATOR> 
<DETACH STATEMENT> tte DETACH <INTERRUPT IDENTIFIER> 
SENABLE STATEMENT> Ste ENABLE <INTERRUPT IDENTIFIER> 
<DISABLE STATEMENT> ti® DISABLE <INTERRUPT IDENTIFIER 
<FAULT NAME> ttm ANYFAULT 
/ BOTTOMOFSTACK 
EXPONENTOVERFLOW 
EXPONENTUNDERF LON 
INACTIVEQUEVE 
INTEGEROVERFLOW 
INVALIDADORESS 
INVALIDINDEX 
INVALIDOOP 
INVALIDPROGRAMWORD 


~ SN NO ON ON ON ONS 


208 209 


211 


213 214 


216 


213 214 


149 
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LooP 
MEMORYPARITY 
MEMORYPROTECT 
PROGRAMMEDOPERATOR 
SCANPARITY 
SEQUENCE 
STACKOVERF LOW 
STACKUNDERFLOW 
STRINGPROTECT 
ZERODIVIDE 
<DESTINATION> tse <UPDATE POINTER> <POINTER EXPRESSION> 
<SOURCE LIST> 8a <SOURCE PART> 
/ <SOURCE PART> » <SOURCE LIST> 
<SQURCE> tis <PQINTER SOURCE> 
/ SARITHMETIC SOQURCE> 

“SCAN PART> 388 <SCAN COUNT? <CONDITION> 

/ <CONDITION> 
<O00 STATEMENT> ta8 DO <STATEMENT> UNTIL <BOOLEAN EXPRESSION> 
SARRAY IDENTIFIER> S830 <IDENTIFIER> 

/ SARRAY INTRINSIC> 
<BOUND LIST> 83s <BOUND> 
/ <BOUND LIST> » <BOUND> 


nN ONO OS ON ON ON ON ONON 


150 <FORMAL SYMBOL PART> 2342 <EMPTY> 


7 © “FORMAL SYMBOL LIST> ) 


151 “TEXT> t3a 


152 SLETTER> tte 


FREE # 2 


~ yxOXN XN OS ON ON OS NON NS ON ON RP PR 


ze eer mxmaeoeoeormrronrnmoeowe 


ANY SEQUENCE OF VALID <CHARACTER>S NOT INCLUDING 


Cc- 


10 


218 


144 


223 


105 


225 
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~ nN NNN NON ON ON ON NON 
N =< x £ kK CH ow DB O VD OO 


153 “DIGIT> tts Q 


be 
wal 
— 


155 


156 


157 


158 
159 


160 


161 


ven NNN NN NO WNON 


<CLOSED TEXT 


S AN ACTUAL TEXT NOT CONTAINING 
UNMATCHED BRACKETING SYMBOLS OR UNBRACKETED COMMAS 
> 
<ADDRESS> %8= <IDENTIFIER> 
/ <ADORESS COUPLE> 
/ <IDENTIFIER> <aDDING OPERATOR> <UNSIGNED INTEGER> 
<EVENT DESIGNATOR? tis <EVENT IDENTIFIER> 
/ <EVENT ITEM> 
/ <EVENT ARRAY IDENTIFIER> C€ <SUBSCRIPT LIST> ] 
¢ SEVENT ARRAY ITEM> € <SUBSCRIPT LIST> j 
SEVENT ARRAY LIST> tt <EVENT ARRAY IDENTIFIER> <ADORESS PART> 
7 <EVENT ARRAY LIST> 5» <EVENT ARRAY IDENTIFIER> 
<ADORESS PART> 
<FIELU IDENTIFIER> ttm <IDENTIFIER> 
<FIELU> t12 <ARITHMETIC EXPRESSION> t <ARITHMETIC EXPRESSION> 
<FILE DESIGNATOR> st <FILE IDENTIFIER> 
/ <DIRECT FILE IDENTIFIER> 
<INITIAL ATTRIBUTE LIST> tt= <INITIAL ATTRIBUTE> 


Cc- 


234 
235 
236 


ll 


228 229 


97 
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/ SINITIAL ATTRIBUTE LIST> 4 161 
<INITIAL ATTRIBUTE> 236 
162 <LAYOUT IDENTIFIER> tem <IDENTIFIER> 81 
163 <LAYOUT ITEM LIST> tte <LAYOUT ITEM> 237 
/ <LAYOUT ITEM LIST> » <LAYOUT ITEM> 163 237 
164 <SIMPLE VARIABLE> 13” <IDENTIFIER> 81 
165 <PICTURE IDENTIFIER> t= <IDENTIFIERD> al 
166 <PICTURE> ttm <PICTURE SYMBOL> 238 
/ <PICTURE> <PICTURE SYMBOL> 166 238 
167 <FORMAL PARAMETER LIST> t3® <FORMAL PARAMETER> 239 
/ <FORMAL PARAMETER LIST> 167 
<PARAMETER OELIMITER> <FORMAL PARAMETER> 240 239 
168 <VALUE PART> 88s <EMPTY> 64 
/ VALUE <IDENTIFIER LIST» 3 241 
169 <SPECIFICATION PART> ttm <SPECIFICATION> 242 
. 7 <SPECIFICATION PART> § <SPECIFICATION> 169 242 
170 <SECOND NAME> ttm <IDENTIFIER> 61 
171 <CONDITIONAL ARITHMETIC EXPRESSION> ti <IF CLAUSE> 61 
<ARITHMETIC EXPRESSION> ELSE 97 
<ARITHMETIC EXPRESSION> 97 
172 <ARITHMETIC ASSIGNMENT> tt <ARITHMETIC VARIABLE> 243 
<REPLACEMENT OPERATOR? 103 
<ARITHMETIC EXPRESSION> 97 
173 <SIMPLE ARITHMETIC EXPRESSION> t8= <SIMPLE ARITHMETIC EXPRESSIOND> 173 
<ADDING OPERATOR> <TERM> 228 244 
7 <UNARY OPERATOR> <TERM> 245 244 
/ <TERM> 244 
174 <wORD EXPRESSION> t8= <WORD ASSIGNMENT> 112 
/ <WORD VARIABLE> 193 
/ <wORD ITEM> 246 
/ SIF CLAUSE> <WORD EXPRESSION> ELSE 61 174 
<WORD EXPRESSION> 174 
/ WORD ( <MOST EXPRESSIONS> ) 247 
/ <FUNCTION DESIGNATOR> 69 
/ <CASE HEAD> ( <WORD EXPRESSION LIST> ) 197 246 
/ (© SWORD EXPRESSION> ) 174 
175 <ENTRY ITEM LIST> t3= <ITEM LIST> <INVISIBLE ITEM LIST> 249 250 
176 <ALGORITHM LIST> tt® <ALGORITHM> 251 
/ <ALGORITHM> § <ALGORITHM LIST> 251 176 
177 TYPE ITDENTIFIER> t8= <IDENTIFIER> 81 


178 <INITIAL VALUE> its <EXPRESSION> i94 
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179 <CONSTANT> 83m <NUMBER> 252 
/ SLOGICAL VALUE> 253 
/ <STRING> 254 
7 <CONSTANT EXPRESSION> 255 
/ <UNSIGNED INTEGER> ¢ <CONSTANT LIST> ) 229 104 
180 <CONDITIONAL BOGLEAN EXPRESSION> tee <IF CLAUSE> <BOQLEAN EXPRESSION> 61 105 
ELSE <BOGLEAN EXPRESSION> 105 
181 <BOOLEAN ASSIGNMENT> 22 <BOOLEAN VARIABLE> <REPLACEMENT OPERATOR> 256 103 
<BOOLEAN EXPRESSION> 105 
182 <SIMPLE BOOLEAN EXPRESSION> !28 <IMPLICATION> 257 
/ <SIMPLE BOOLEAN EXPRESSION> Ev 142 
<IMPLICATION> 257 
183 <WHILE PART> S!e WHILE <BOOLEAN EXPRESSION> 105 
184 <FOR CLAUSE> tt@ FOR <CONTROLLED VARIABLE» <REPLACEMENT OPERATOR> 258 103 
<FOR PART? 259 
185 <THRU CLAUSE> itm THRU <ARITAMETIC EXPRESSION> , 97 
186 <aARITMMETIC FIELD ASSIGNMENT> ti <ARITHMETIC VARIABLED . 243 
<FIELO IDENTIFIER> 158 
«REPLACEMENT OPERATOR? 103 
<ARITHMETIC EXPRESSION 97 
187 <ARRAY ASSIGNMENT> tte <ARRAY DESIGNATOR® <REPLACEHENT OPERATOR? 260 103 
<ARRAY EXPRESSIONS 
188 ARRAY FIELD ASSIGNMENT> !8@ <ARRAY DESIGNATOR> . <FIELD LOENTIFIER> 260 158 
<REPLACEMENT OPERATOR> 103 
<ARITHMETIC EXPRESSION> 97 
189 <BUOLEAN FIELD ASSIGNMENT> $38 <BOOLEAN VARIABLE> « <FIELD IDENTIFIER> 256 158 
<REPLACEMENT OPERATOR> 103 
€BZ00LEAN EXPRESSION> 105 
190 «<gUEUE DESIGNATOR> tie <QUEUE IDENTIFIER> 100 
7 <QUEUVE ARRAY IOENTIFZER> € 95 
<ARITHMETIC EXPRESSION> 1 97 
191 <REFERENCE EXPRESSION> 8i@ NULL 
/ <REFERENCE ASSIGNMENT> 411 
/ <IF CLAUSE> <REFERENCE EXPRESSION> ELSE 61 191 
<REFERENCE EXPRESSION? 191 
/ <REFERENCE VARIABLE> 192 
/ SENTRY EXPRESSION> 262 
/ “QGUEVE DESIGNATOR? 190 
/ REFERENCE (€ <VARIABLE? ) 263 
/ aFUNSTION DESIGNATOR 69 
/ «WORD EXPRESSIGN> i74 
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/ €( SREFERENCE EXPRESSION> ) 

/ <REFERENCE ITEM> 

/ <CASE HEAD> € <REFERENCE EXPRESSION LIST> 
) 


192 <REFERENCE VARIABLE> t#= <VARTABLE> 


193 


<WORD VARIABLE> tts <VARIABLE> 


194 <EXPRESSION> #3@ <GENERAL COMPONENT> 


196 


197 
198 


206 


207 


/ CARITHMETIC EXPRESSION? 
SARRAY EXPRESSION> 
<BOOLEAN EXPRESSION> 
<CaASE EXPRESSION? 
<CONDITIONAL EXPRESSTON> 
<DESIGNATIONAL EXPRESSIBN> 
<POINTER EXPRESSION> 
“REFERENCE EXPRESSION> 

/ <WORD EXPRESSTION> 
<TO PART> t3= <EMPTY> 

/ Tu 
“SDESIGNATIONAL EXPRESSION> tt= <LABEL DESIGNATOR> 
/ <CASE MEAD> ¢ 
<DESIGNATIONAL EXPRESSION LIST? ) 


~ SN SN ON ON SN ON 


<CONDITIONAL DESIGNATIONAL EXPRESSION> 
<CASE HEAD> 18® CASE <ARITHMETIC EXPRESSION> OF 
<DESIGNATIONAL EXPRESSION LIST> ttm <DESIGNATIONAL EXPRESSION> 
/ <DESIGNATIONAL EXPRESSION LIST> 
» <DESIGNATIONAL EXPRESSION? 
<WAITUNEVENT STATEMENT> $88@ <WALTONEVENT®SIMPLE STATEMENT? 
/ <WALTONEVENT®COMPLEX STATEMENT> 
<WALTONTIME STATEMENT> ta WAIT ( ( <TIME> ) ) 
<WALTANDRESET®SIMPLE STATEMENT> tt= WAITANDRESET ( <EVENT DESIGNATOR? 
) 
<WALTANDRESET*COMPLEX STATEMENT> 88 WAITANDRESET ¢ 
<WAIT PARAMETER LIST> ) 
<DSWAIT*SIMPLE STATEMENT> t8@ DSWAIT ( <EVENT DESIGNATOR> ) 
<OSWAIT@COMPLEX STATEMENT> t= DSWAIT ( <WAIT PARAMETER LIST> ) 
<DSWAITANDRESET@SIMPLE STATEMENT> ttm DSWAITANDRESET ( 
<EVENT DESIGNATOR> ? 
<DSWALTANDRESET*COMPLEX STATEMENT> 88 DSWAITANDRESET ¢ 
<WAIT PARAMETER LIST> ) 
“STACK SIZE> tim <ARITHMETIC EXPRESSION> ; 


274 
97 


265 


208 
209 


210 


211 


212 


213 
214 


215 


216 
217 


218 


219 


220 
221 
222 
223 


224 


225 
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<PRIORITY> t122 <ARITHMETIC EXPRESSION> 
<vIiSIbLE NAME INDEX> 23m <EMPTY> 
/ » “ARITHMETIC EXPRESSION? 
“ACTUAL PARAMETER LIST> 888 <ACTUAL PARAMETER? 
¢ <ACTUAL PARAMETER LIST> 
<PARAMETER DELIMITER> <ACTUAL PARAMETER? 
<CLOSE UPTION> 22 ® 
/ PURGE 
/ REEL 
<FILE PART> st <FILE DESIGNATOR> 
/ <PILE DESIGNATOR> 
<RECORD NUMBER OR CARRIAGE CUNTROL> 
<wURD CUUNT> t8@ <ARITHMETIC EXPRESSION> 
“1/0 AREA> tk2 <ARRAY ROW> 
7 <PUINTER EXPRESSION> 
/ <SUBSCRIPTED VARIABLE> 
<1/0 FINISH EVENT> tf <EMPTY> 
/ ( <EVENT DESIGNATOR> J 
<RECORD NUMBER> tt# <ARITHMETIC EXPRESSION> 
<UPDATE PUINTER> t32 <EMPTY> 
/ <POINTER IDENTIFIER> ! 
<POINTER EXPRESSION> ti2 <CONDITIONAL POINTER EXPRESSION> 
/ <SIMPLE POINTER EXPRESSION? 
<SUURCE PART> ttm <SQURCE> <TRANSFER PART> 
/ <STRING> <TRANSFER PART> 
/ <ARITHMETIC SUURCE> <ARITHMETIC TRANSFER PART> 
: / <STRING> 
<POINTER SOURCE> t= <UPDATE POINTER> <POINTER EXPRESSION> 
<AKITHMETIC SOURCE> tre <UPDATE VARIABLE> <ARITHMETIC EXPRESSION> 
<SCAN CUUNT> tt2 FOR <UPDATE COUNT> <ARITHMETIC EXPRESSION> 
<CUNDITION> $889 WHILE <RELATIONAL OPERATOR> <ARITHMETIC EXPRESSION? 
/ UNTIL <RELATIONAL NPERATOR> <ARITHMETIC EXPRESSION> 
f UNTIL IN <TABLE> 
/ WHILE IN <TABLE 
SARRAY INTRINSIC> 882 4M 
/ MEMORY 
/ REGISTERS 
/ STACK 
/ STACKVECTOR 
/ WORDSTACK 
T 


<BUUNU> ti <wORD COUNT> 


C~ 15 


97 
64 
97 
275 
210 
240 


160 
160 
276 

97 
277 
218 
278 

64 
156 

97 

64 
2793 
280 
2ai 
145 
254 
22ai 
254 
217 
284 
285 
286 
286 
287 
287 


213 


275 


282 
282 
283 


2168 
97 
97 
97 
97 


239 
240 


241 
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4 
<FURMAL SYMBOL LIST> t2= <FORMAL SYMBOL> 
/ <FORMAL SYMBOL LIST> » <FORMAL SYMBOL> 

<ADDRESS COUPLE> tt# ( <LEVEL> <OISPLACEMENT> ) 
<ADDING OPERATOR> tts + 

se 
<UNSIGNED INTEGER? tt <DIGIT> 

7 <UNSIGNED INTEGER> <DIGIT> 

<EVENT ITEM> 8328 <ITEM> 
<EVENT ARRAY IDENTIFIER> st@ <IDENTIFIER> 
“SUBSCRIPT LIST> 188 <SUBSCRIPT> . 

/ <SUBSCRIPT LIST> » <SUBSCRIPT> 
<EVENT ARRAY ITEM> tte <ITEM> 
<FILE IDENTIFIER> t38 <IDENTIFIER> 
<OIRECT FILE IOENTIFIER> 83s <IDENTIFIER> 
<INITIAL ATTRIBUTE> see <FILE ATTRISUTE NAME> & <FILE ATTRIBUTE VALUE> 
SLAYGUT ITEM> tem <LAYOUT FIELO> <FIELD VAEUE PART> 
<PICTURE SYMBOL> t18 "<HEXADECIMAL STRING>* 

7 ™<BCL STRINGS" 
w<ASCII STRINGS" 
WeEBCDIC STRING?" 
ePICTURE CHARACTER> <REPEAT PAaRT> 
<CONTROL CHARACTER? 
<INTROOUCTION> 
<SKIP CHARACTER> <REPEAT PART> 
“SINGLE PICTURE CHARACTER> 
<FORMAL PARAMETER> 818 <IDENTIFIER> 
“PARAMETER DELIMITER> t88 » 

/) 


a.n NNN ON ON ON 


PSANY SEQUENCE OF LETTERS AND SINGLE SPACES2" 


¢ 
“IDENTIFIER LIST> 88s <IDENTIFIER> 
/ SIDENTIFIER LIST> » <IDENTIFIER> 
<SPECIFICATION> t8= <SPECIFIER> <IDENTIFIER LIST> 
¢ <ARRAY SPECIFICATION> 
<ARITHMETIC VARIABLE> st@ <VARIABLE> 
<TERM> tis <FACTOR> 
7 <TERM> <MULTIPLYING OPERATOR> <FACTOR> 
<UNARY GPERATOR> 832 <ADDING OPERATOR? 
<wORD ITEM> 888 <[TEM> 
<MOST EXPRESSIONS> S26 <ARITHMETIC EXPRESSION? 


Cc- 


81 
241 
303 
304 
263 
305 
244 
228 
291 

97 


16 


288 
290 


153 


292 


294 
296 


298 


298 


81 
241 


306 305 


249 


251 


252 
253 


254 


255 


256 
257 


258 


262 
263 


264 
265 
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/ <BOOLEAN EXPRESSION> 
/ SREFERENCE EXPRESSION> 
/ SARRAY EXPRESSTION> 
<WwURD EXPRESSION LIST> tts <WORD EXPRESSION? 
/ <WORD EXPRESSION LIST> , 
<wORD EXPRESSION> 
<ITEM LIST> 32 <ITEM IDENTIFIER? 


/ <ITEM LIST> <PARAMETER DELIMITER> <ITEM IDENTIFIER> 


<INVISIBLE ITEM LIST> see <ITEM LIST> 


SALGORITHM> t= <BQOLEAN ALGORITHM INENTIFIER® IF <BOOLEAN EXPRESSION> 


/ SREFERENCE ALGORITHM IDENTIFIER? IS 
<REFERENCE EXPRESSION? 
4 TO <ALGORITHM IDENTIFIER> » <STATEMENT> 
/ <LQCK SPECIFICATION? 
/ <INTEGER ALGORITHM I[DENTIFIER> » <STATEMENT> 
<NUMBER> tis <SITGN> <UNSIGNED NUMBER> 
<LOGICAL VALUE> tt= TRUE 
/ FALSE 
<STRING> bis <SIMPLE STRING? 
: / <STRING> <SIMPLE STRING? 


SAN EXPRESSION WHICH CAN BE ENTIRELY 


EVALUATED 8Y THE ESPOL COMPILER AT COMPILE 


TIME 2 
<BOOLEAN VARIABLE> t8m@ <VARIABLE> 
<IMPLICATION> ts <BOOLEAN TERMK> 
/ <IMPLICATION> IMP <BOOLEAN TERM> 
<CONTROLLED VARIABLE> tse <SIMPLE VARIABLE> 
/ SSUBSCRIPTED VARIABLE> 
<FOR PART> Ute <INITIAL PART> <STEP PART> <FINAL PART> 
SARRAY DESIGNATOR? tle <ARRAY IDENTIFIER> <SUBARRAY DESIGNATOR> 
/ <ARRAY VARIABLE> 
SARRAY EXPRESSION> ttm <ARRAY ASSIGNMENT? 
/ SARRAY PRIMARY> 
/ <IF CLAUSE> <ARRAY EXPRESSION> ELSE 
<ARRAY EXPRESSION> 
SENTRY EXPRESSION> 882 <QUEUVE NAME> ( <ACTUAL ITEM LIST> ) 
“<VARIABLE> t2@ «SIMPLE VARIABLE? 
/ <SUBSCRIPTED VARIABLE> 
“REFERENCE ITEM> tem <I TEM> 
“REFERENCE EXPRESSION LIST> t8@ <REFERENCE EXPRESSION> 


Cc- 


105 
191 
261 
174 
248 
174 
307 


17 


249 240 807 


249 


315 
254 


191 


105 


314 


315 


316 


316 
320 


261 


324 


319 


266 


268 


269 
270 


272 
273 


274 


275 


276 


277 
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/ <REFERENGE EXPRESSION LIST> » 
<REFERENCE EXPRESSIONS 
<GENERAL CUMPONENT> 28% <BASIC COMPONENT> 
/ <VARTABLE> 
/ <ITEM DESIGNATOR? 
/ <VALUE DESIGNATOR> 
/ “EVENT DEST GNATOR> 
/ <INTRINSIC> 
<CASE EXPRESSION> 148 <CASE HEAD> ( <EXPRESSION LIST> ) 
<CUNDITIONAL EXPRESSION> t## <CONDITIONAL ARITHMETIC EXPRESSION> 
7 <CONDITIONAL BOOLEAN EXPRESSION> 
/ <CONDITIONAL DESIGNATIONAL EXPRESSION® 
/ <CONDITIONAL POINTER EXPRESSION> 
<LABEL DESIGNATOR> 238 <LABEL IDENTIFIER> 
<CONDITIONAL DESIGNATIONAL EXPRESSION> t8= <IF CLAUSE> 
<DESIGNATIONAL EXPRESSION> 
ELSE 
<DESIGNATIONAL EXPRESSION> 
<WAITUNEVENT®SIMPLE STATEMENT> 828 WaT ( <EVENT DESIGMATUR?> ) 
<WALTONEVENT@COMPLEX STATEMENT> ft= WAIT ¢ <WAIT PARAMETER LIST> ) 
<TIME> t13 
STHE MINIMUM AMOUNT OF TIME IN SECONDS 
(C FRACTIONAL SECONOS ALLOWED ) THAT A TASK IS TO BE 
SUSPENDED 2 
<WALT PARAMETER LIST> ¢3@ <EVENT LIST> 
/ © <TIME> ) 6 <EVENT LIST> 
CACTUAL PARAMETER> ttm <EXPRESSION> 
/ <PROCEDURE IDENTIFIER> 
/ <EVENT DESIGNATOR» 
<RECORD NUMBER OR CARRIAGE CONTROL> tee C “ARITHMETIC EXPRESSION> ) 
7 U LINE 
<ARITHMETIC EXPRESSION> } 
/ « SPACE 
<ARITHMETIC EXPRESSION> 1 
/ C SKIP 
<ARITHMETIC EXPRESSION> ] 
/ Ct STACKER 
<ARITHMETIC EXPRESSION> J 
7 Ut NO J 
<ARRAY RUW> 838 <ARRAY IDENTIFIER> ¢ <ROW DESIGNATOR> } 


278 <SUBSCRIPTED VARIABLE> t8@ <ARRAY IDENTIFIER> € <SUBSCRIPT LIST> 3 


C~ 


196 
156 


85 
273 
194 

aa 
156 

97 


97 


97 


97 


97 


148 
148 


18 


329 


85 


330 
232 


282 


283 


284 


285 


286 


287 


288 
289 


290 


291 


292 
293 


294 


295 
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<PUINTER IDENTIFIER> tt <IDENTIFIER> 


<CUNDITIONAL POINTER EXPRESSIUN> 32m <IF CLAUSE> <POINTER EXPRESSION> 


ELSE <POINTER EXPRESSION> 
<SIMPLE PUINTER EXPRESSIUON> tte <PQINTER PRIMARY> <SKIP> 
/ <POINTER ASSIGNMENT> 
/ <WORD ARRAY ROW> 
/ <SUBSCRIPTED WORD VARIABLE> 
STRANSFER PART> tts <SCAN COUNT> <CONOITION> 
4 <CONDITION> <FINAL COUNT> <UNITS> 
/ WITH <PICTURE DESIGNATUR> 
¢ <FINAL COUNT> WITH <TRANSLATE TABLE> 
<ARITHMETIC TRANSFER PART> tte <DIGIT COUNT> 
/ <CORRECT COUNT> 
/ <CORRECT COUNT> <CONDITIUN> 
<UPDATE VARIABLE> t3= <EMPTY> 
/ <SIMPLE VARIABLE> ! 
<UPDATE CUUNT> s32 <EMPTY> 
/ <SIMPLE VARKIABLE> 1 
SRELATIUNAL OPERATOR> 11 > 


4s 


~ NON NN 


Is 
<TABLE> 118 <ARRAY ROW? 
7 <SUBSCRIPTED VARIABLE> 
<FORMAL SYMBOL> ti2 <IDENTIFIER> 
<LEVEL> 38138 <UNSIGNED INTEGER> 
/ @ «UNSIGNED INTEGER? 
SDISPLACEMENT> tt <EMPTY> 
/ » <UNSIGNED INTEGER> 
<ITEM> tim <ITEM IDENTIFIER> @ <REFERENCE EXPRESSION> 
<SUBSCRIPT> 232 <ARITHMETIC EXPRESSION> 
<FILE ATTRIBUTE NAME> 838 CARITHMETIC@VALUED FILE ATTRIBUTE NAME> 
/ <BOOLEAN@VALUED FILE ATTRIBUTE NAME> 
/ SMNEMONIC@VALUED FILE ATTRIBUTE NAME> 
/ SPOINTER*VALUED FILE ATTRIBUTE NAME> 
<FILE ATTRIBUTE VALUE> tt <CONSTANT> 
/ <PILE ATTRIBUTE MNEMONIC VALUE> | 
<LAYOUT FIELD> ti” <FIELD PART> 


Cc- 


81 

61 
214 
331 
333 
334 
335 
222 
223 
338 
336 
340 
341 
341 

64 
164 

64 
164 


277 
278 

81 
229 
229 

64 
229 
307 

97 
342 
343 
344 
345 
179 
346 

87 


19 


218 


332 


223 


336 


339 


223 


191 


337 
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/ «<FIELD 
/ <FIELD IDENTIFIER> 


296 <FIELD VALUE PART> tt <EMPTY> 


/ <REPLACEMENT OPERATOR> <UNSIGNED INTEGER> 


297 <PICTURK CHARACTER> 332 A 


299 


300 
301 


303 


305 


306 


~~ un XA NN NN NN 
on x DOK NM OO 


“REPEAT PART> Sta <EMPTY> 
/ © SUNSIGNED INTEGER? ) 
46 ®) 
“CONTROL CHARACTER> tae 4 
/ 
/ 
/ 
/t 
<INTRUDUCTION> t2= <INTRODUCTION CODE> <NEW CHARACTER> 
<SKIP CHARACTER> t3= >» 
4< 
<SINGLE PICTURE CHARACTER> tie J 
78 


on oO 


<SPECIFIER> t8# <TYPE> 
/ <PROCEDURE TYPE> PROCEDURE 
/ QUEUE 
/ EVENT 
/ PICTURE 
<ARRAY SPECIFICATION> tt@ <DIRECT SPECIFIER> <ARRAY TYPE> ARRAY 
<ARRAY SPECIFIER LIST> 
<FACTOR> sim <PRIMARY> 
/ <PRIMARY> # <INTEGER> 
<MULTIPLYING OPERATOR> tim x 
4 <SLASH> 
/ DIV 
/ “OD 
/ MUX 


C- 20 


159 
158 
64 
103 229 


64 
229 


347 346 


56 
49 


39 349 


351 352 


308 


309 


310 


311 


312 


315 


316 


317 
318 


319 


320 


321 


322 


323 
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<ITEM IVENTIFIER> st@ <IDENTIFIER> 


/ <I TEM> 
<BOOLEAN ALGORITHM IDENTIFIER> 84m EMPTY 
¢ FULL 
“REFERENCE ALGORITHM IDENTIFIER> t= ALLOCATE 
4 NEXT 
/ LAST 
/ FIRST 
/ PRIOR 
<ALGORITHM IDENTIFIER> t8m INSERT 
7 REMOVE 
/ DELINK 


f <IDENTIFIER> 
<LOCK SPECIFICATION> ta LOCKED 
f LOCKED <QUEUE NAME> 
<INTEGER ALGORITHM IDENTIFIER> i388 POPULATION 
<SIGN> tt= <EMPTY> 
/¢ 
fa 
<UNSIGNED NUMBER> t22 <DECIMAL NUMBER> <EXPONENT PART> 
/ <DECIMAL NUMBER> 
¢ <OCTAL NUMBER> 
“SIMPLE STRING> 2m <NUMERIC STRING> 
/ <ALPHA STRING> 
“BOOLEAN TERM> tt <BSO0LEAN FACTOR> 
/ <BOOLEAN TERM> OR <BOBLEAN FACTOR> 
<INITIAL PART> tt <ARITHMETIC EXPRESSION? 
<STEP PART> 818 STEP <ARITHMETIC EXPRESSION> 
/ BY «ARITHMETIC EXPRESSION? 
SFINAL PART> tim UNTIL <ARITAMETIC EXPRESSION> 
/ <WHILE PART> 
“SUBARRAY DESIGNATOR> tse <EMPTY> 
/ € «SUBSCRIPT PART> <SUBARRAY PART> } 
SARRAY VARIABLE> t3= <SIMPLE VARIABLE> 
/ <ARRAY ITEM> 
SARRAY PRIMARY> t?® <ARRAY DESIGNATOR? 
/ (© <ARRAY EXPRESSION> ) 
/ “ARRAY PRIMARY> & <LAYDUT> 
/ <WwORD EXPRESSIGN> 
<QUEUE NAME> tis <QUEVE IDENTIFIER> 
/ “QUEUE ARRAY IDENTIFIER> 


Cc- 


81 
291 


6! 


323 


64 


183 


360 
164 
362 
260 
261 
322 
174 
100 

95 


al 


355 


359 


361 


363 


324 


326 


327 
328 


329 


331 


337 


338 
339 
340 
341 
342 
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<ACTUAL ITEM LIST> 288 <ACTUAL PARAMETER LIST> 
<BASIC COMPONENT> st? <BASIC SYMBOL> 

7 <TDENTIFIER> 

/ <NUMBER> 

/ SSTRING> « 2 6 IDENTIFIERS 
<ITEM DESIGNATOR> 1898 <ARITHMETIC ITEM> 

/ <wOROD ITEM> 


<VALUE DESIGNATOR> tf <VALUE ARRAY IDENTIFIER> { <SUBSCRIPT LIST> 1] 


<INTRINSIC> 159 <ARRAY INTRINSIC> 
/ <FUNCTION INTRINSIC? 
/ <PROCEQURE INTRINSIC> 
/ <WORD INTRINSIC> 
“EXPRESSION LIST> tis <ARITHMETIC EXPRESSION LIST> 
/ <SBOOLEAN EXPRESSION LIST> 
/ SDESIGNATIONAL EXPRESSION LIST> 
/ <POINTER EXPRESSION LIST> 
“ROW DESIGNATOR> tts « 
/ <«ROW> » * 
<POINTER PRIMARY> 888 <POINTER IDENTIFIER> 
/ ( <POINTER EXPRESSION> ) 
/ <CASE HEAD> ¢ <POINTER EXPRESSION LIST> ) 
/ <POINTER DESTGNATOR> 
<SKIP> 88% <EMPTY> 
7 <ADDING OPERATOR> <PRIMARY> 
<POINTER ASSIGNMENT> tim <POINTER VARIABLE® <REPLACEMENT OPERATOR> 
<POINTER EXPRESSION> 
<WORD ARRAY ROW> f328 <ARRAY ROW> 
<SSUBSCRIPTED WORD VARIABLE> #1@ <SUBSCRIPTED VARIABLE> 
<FINAL COUNT> tem FOR <ARITHMETIC EXPRESSION> 
SUNITS> 882 <EMPTY> 
/ WORDS 
/ OVERWRITE ; 
<PICTURE DESIGNATOR> sta <PICTURE IDENTIFIER> <REPEAT PARAMETERS> 
<TRANSLATE TABLE> #28 <TABLE? 
<DIGIT COUNT> te FOR <ARITHMETIC EXPRESSION> DIGITS 
<CORRECT COUNT> tt <SCAN COUNT> CORRECTLY 
SARITHMETIC®VALUED FILE ATTRIBUTE NAME> S88 AREACLASS 
/ AREAS 
/ AREASIZE 
/ ASSIGNTIME 
/ ATTVALUE 


c- 


165 


222 


22 


232 


371 


351 
103 


375 
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/ 
/ 


/ 
/ 
f 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
é 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 


ATTYPE 
BLOCK 
BLOCKSIZE 
BUFFERS 
CENSUS 
COPIES 
CYCLE 

DATE 
DIRECTION 
DISPOSITION 
ENABLEINPUT 
ERRORTYPE 
FAMILYSIZE 
FILETYPE 
LASTRECORD 
LASTSTATION 
LINENUM 
MAXGENNO 
MAXRECSIZE 
MINRECSIZE 
NEXTRECORD 
PAGE 
PAGESIZE 
POPULATION 
RECEPTIONS 
RECORD | 
RECORDSZ 
REEL 
ROWADORESS 
ROWINUSE 
SAVEFACTOR 
SECURITYTYPE 
SECURITYUSE 
SCREEN 
SERTALNU 
SIZEMUDE 
SIZEQFFSET 
SIZE2 

SPEED 

STATE 


TAPEREELRECURD 


Cc- 


23 
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/ TRANSMISSIONO 
/ TRANSMISSIONS 
/ UNITNO 

/ UNITS 

/ UNITSLEFT 

/ USEDATE 

/ VERSION 

/ WIDTH 


343 <BOOLEAN@VALUED FILE ATTRIBUTE NAME> &3= ATTERR 


/ 


~~ A YN NN NN NNN NNN NS 


BEGINATI 
BREAK 
CODEFILE 
COPIES 
CYLINDERMODE 
DUPLICATED 
EOF 
INTERCHANGE 
NULINPUT 
OPEN 
OPTIONAL 
PRESENT 
READCHECK 
RESIDENT 
SINGLEPACK 
UPDATE 


344 “SMNEMONIC*VALUED FILE ATTRIBUTE NAME> 3h DENSITY 


/ 
/ 
/ 
/ 
r 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 


/ 


EXTMOOE 
FILEKIND 
INTMODE 
KIND 
LABELTYPE 
MYUSE 
OTHERUSE 
PARITY 
PROTECTION 
SECURITYTYPE 
SECURITYUSE 
SIZEMODE 
SPEED 

UNITS 


345 <POINTER@VALUED FILE ATTRIBUTE NAME> ttm FAMILY 


346 


347 


348 
349 


350 


351 


353 
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/ FORMESSAGE 

/ INTNAME 

/ TITLE 
<FILE ATTRIBUTE MNEMONIC VALUE> tim <DENSITY MNEMONIC> 

/ SERRORTYPE MNEMONIC> 

/ <EXTMODE MNEMONIC> 
/ <FILEKIND MNEMONIC> 
/ <INTMODE MNEMONIC> 
/ “KIND MNEMONIC> 
/ “LABELTYPE MNEMQNIC> 
/ <MYUSE MNEMONIC> 
/ <QTHERUSE MNEMONIC> 
/ SPARITY MNEMONIC> 
/ <PROTECTION MNEMONIC> 
/ <SECURITYTYPE MNEMONICS 
/ “SECURITYUSE MNEMONIC® 
/ <“SIZEMODE MNEMONIC> 
4 <SPEED MNEMONIC> 
/ <STATE MNEMONIC> 
/ SUNITS MNEMONIC> 
<INTRUOUCTION CODE> S18 B 


bs  , 
wexon 


4u 
“NEW CHARACTER> 232 <STRING CHARACTER? 
“ARRAY TYPE> 88m <EMPTY> 
/ <TYPE> 
/ EVENT 
“ARRAY SPECIFIER LIST> t3# <ARRAY SPECIFIER> 
/ <sARRAY SPECIFIER LIST> , 
<ARRAY SPECIFIER> 
<PRIMARY> tim <UNSIGNED NUMBER> 
/ <3TRInG> 
/ <FIELD DESIGNATOR> 
¢ <OPERAND> 
/ <PRIMARY> & <ARITHMETIC EXPRESSION> <CONCATENATION> 
/ <PRIMARY> & <LAYOUT> 
SINTEGER> $38 <SIGN> <UNSIGNED INTEGER? 
<SLASH> sam / 


C- 25 


38? 
386 
389 
390 
391 
392 


393 


351 9F 397 
351 363 
313 229 
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354 <pECIMAL NUMBER> t8% <UNSIGNED INTEGER> <DECIMAL FRACTION> 
/ <UNGIGNED INTEGER> 
7 <DECIMAL FRACTION? 
/ <UNSIGNED INTEGER? o 
355 <EXPONENT PART> sta ® <INTEGER> 
/ @ @ <INTEGER> 
356 <OCTAL NUMBER> st® @ <OCTAL CONSTANT> 
357 «NUMERIC STRING> 888 <BINARY CODE> <QUOTE> <BINARY STRING> <QUOTE> 
7 <QUATERNARY CODE> <QUOTE> <QUATERNARY STRING> 
<QUOTE> 
/ <OCTAL CODE> <QUOTE> <OCTAL STRING> <QUOTE> 
/ sHEXADECIMAL CODE> <QUOTE> <HEXADECIMAL STRING> 
<QUOTE> 
358 <ALPHA STRING> t18 <8CL CODE> <QUOTE> <BCL STRING> <QuOTE> 
/ <ASCII CODE> <QUOTE> <ASCII STRING> <QUOTE> 
/ <EBCDIC CODE> <QUOTE> <EBCDIC STRING> <QUOTE> 
359 <gOOLEAN FACTOR> tt <BOOLEAN SECONDARY> 
/ <BOOLEAN FACTOR> AND <BOOLEAN SECONDARY> 
360 <SUBSCRIPT PART> s38 <EMPTY> 
/ <SUBSCRIPT LIST> » 
361 <SUBARRAY PART> tim e 
7 <SUBARRAY PART> » * 
362 <ARRAY ITEM> simu <ITEM> 
363 <LAYOUT> t3= <LAYOUT IDENTIFIER> ( <FIELO VALUE LIST> ) 
364 <BASIC SYMBUL> $28 <EMPTY> 
/ <CHARACTER> 
/ <DELIMITER> 
/ <LOGICAL VALUE> 
365 <ARITHMETIC I[TEM> ttm <I TEM> 
366 <FUNCTION INTRINSIC> tt@ <ARITHMETIC INTRINSIC? 
7 <BOOLEAN INTRINSIC» 
367 <PROCEDURE INTRINSIC> tts ALLOW 
/ Buzz 
DISALLOW 
EXIT 
HEYOU 
I10 
MOVESTACK 
PAUSE 
RETURN 
SCANOUT 


~ NS NSN NSN SN SN NON 


Cc~ 


26 


398 


464 
464 


464 
464 


464 
464 


464 


414 


415 


401 
403 


405 
407 


409 
4i1 
413 


464 


464 


464 
464 


464 


368 
369 


370 


371 


Lo 
~~ 
“I 
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/ STOP 

/ STOREITEM 
/ TIMER 

/ ToucH 

/ ZAP 


<WwORD INTRINSIC> &3= TOPOFSTACK 
<ARITHMETIC EXPRESSIUN LIST> t2@ <ARITHMETIC EXPRESSTION> 


<BUOLEAN EXPRESSION 


LIST> 


/ <ARITHMETIC EXPRESSION LIST> 5 
<ARITHMETIC EXPRESSION> 
132 <BOOLEAN EXPRESSION> 
/ <BOOLEAN EXPRESSION LIST> » 
<BOOLEAN EXPRESSION> 


<POINTER EXPRESSIUN LIST> 8328 <POINTFR EXPRESSION? 


/ <POINTER EXPRESSION LIST> , 
<POINTER EXPRESSION> 


<KUW> tte <ARITHMETIC EXPRESSION> 

/ ¢RUw> » <ARITHMETIC EXPRESSION? 
<PUINTER DESIGNATOR> tts POINTER ( <POINTER PARAMETERS> ) 
SPUINTER VARTABLE> t= <VARIABLE> _ 


<REPEAT PARAMETERS> 


<DENSITY MNEMONIC> 


liz < 
/ 

ttm HI 
/ 


/ 
/ 


<ERRORTYPE MNEMONIC> tts 


<EXTMUDE MNEMONIC> 


<FILEKIND MNEMONIC> 


tte SI 
/ 
/ 
tsa 5 
/ 


~ ~ NS NN NO ON ON 


oMPTY> 
amrir> 


€ <UNSITGNED INTEGER LIST> ) 

GH 

MEDIUM 

LOw 

SUPER 

NOERROR 

/ SUNOTREADY 

7 READPARITYERROR 
/ READCHECKFAILURE 
NGLE 

BCL 

EBCDIC 
YSTEMDIRECTORY 
VERSIONDIRECTORY 
DIRECTORY 
CONTROLDECK 
BACKUPDISK 
RECONSTRUCTIONFILE 
SYSTEMDIRFILE 
COMPILERCODE 
LIBRARYCODE 


C- 


97 
369 

97 
105 
370 
105 
218 
371 
218 

97 
372 
420 
263 


a 
= 


421 


27 


97 
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/ INTRINSICPILE 
¢ MCPCODEFILE 
/ ALGOLCOVDE 
/ COBOLCODE 
/ FORTRANCODE 
/ XALGOLCODE 
¢ PLICODE 
7 JOVIALCODE 
7 ESPOLCODE 
/ OCALGOLCODE 
/ BASICCODE 
/ XFORTRANCODE 
/ BOUNDCODE 
/ CODEFILE 
¢ ALGOLSYMBOL 
/ COBOLSYMBOL 
/ FORTRANSYMBOL 
/ XALGOLSYMBOL 
f PLISYMBUL 
/ JOVIALSYMBOL 
/ ESPOLSYMBOL 
/ DCALGOLSYMBOL 
/ BASICSYMBOL 
/ XFORTRANSYMBOL 
/ DATA 
380 <INTMUDE MNEMONIC> tte SINGLE 
/ BCL 
/ EBCDIC 
7 asctil 
381 <KIND MNEMONIC> tt2 DISK 
/ DISKPACK 
¢ DISPLAY 
/ PAPER 
/ PAPERPUNCH 
/ PAPERREADER 
/ PETAPE 
/ PRINTER 
/ PUNCH 
/ READER 
¢ REMOTE 
/ TAPE 


383 


384 


387 


Ley) 
fos) 
foe) 


389 


390 


391 


<LABELTYPE MNEMONIC> 


<MYUSE MNEMONIC> 


SUOTHERUSE MNEMONI 


<PARITY MNEMONIC> 
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/ 
/ 


TAPE? 
TAPES 


tt2 STANDARD 


/ OMITTED 
/ OMITTEDEOF 


itz CLOSED 
/ IN 
f out 
/ 10 
C> tre SECURED 


tia 


SPRUTECTIGN MNEMONIC> 


/ IN 
¢ out 
‘1a 
STANDARD 
/ NONSTANDARD 
t:s TEMPORARY 
/ SAVE 
/ PROTECTED 


<SECURTTYTYPE MNEMONIC> t22@ PRIVATE 


<SECURITYUSE MNEMONIC> 


<SIZEMULE MNEMONIC> 


<SPEEL MNEMONIC> 


<STATE MNEMONIC> 


/ CLASSA 
/ CLASSB 
f CLASSC 
tts SECURED 
/ IN 
/ OUT 
/ 10 


tra SINGLE 


/ HEX 
/ BCL 
/ eBcpore 


tse FAST 


/ 
/ 


/ 


MEDIUMFAST 
MEDIUMSLOW 


Sid 


tie NORMAL 


/ 


/ 
/ 
/ 
/ 
/ 


ATEND 
PARITYERRKOR 
DATA ERROR 
LOCKEOOUT 
NOINPUT 
BREAKHERE 


C- 


29 


B6700/B7700 ESPOL C- 30 


APPENDIX C. SYNTAX OF THE ESPOL LANGUAGE 


/ TIMEOUT 
/ NEWUSER 
392 <UNITS MNEMONIC> t3© WORDS 
/ CHARACTERS 


393 <STRING CHARACTER> tt <LETTER> 152 
/ <OI1GIT> 153 
7 <SPECIAL CHARACTER> 422 
/ <SINGLE SPACE> ? 
394 <ARRAY SPECIFIER> t3@ <ARRAY IDENTIFIER LIST> € <BOUND SPECIFIER> J 423 426 
395 <FIELD DESIGNATOR> tt= <OPERAND> » <FIELD IDENTIFIER> 396 158 
/ SARRAY PRIMARY> «6 <FIELD IDENTIFIER> 322 158 
396 <QPERANU> %t= <ARITHMETIC VARIABLE> ( <ARITHMETIC EXPRESSION> ) 243 97 
/ <ARITHMETIC FUNCTION DESIGNATUR> 425 
/ <CASE HEAD> ( <ARITHMETIC EXPRESSION LIST> ) 197 369 
397 <CONCATENATION> sa2 C <LEFT BIT*TO> : <NUMBER OF BITS> } 426 427 
/ C <LEFT BIT*TO> % <LEFT BIT*FROM> 2 426 428 
<NUMBER OF BITS> a2? 
398 <pECIMAL FRACTION> tia , <UNSIGNED INTEGER> 229 
399 <QCTAL CONSTANT> t2@ <OCTAL DIGIT> 429 
7 sOCTAL CONSTANT> <OCTAL DIGIT> 399 429 
400 <BINARY CODE> 38 1 
/ 10 
412 
413 
fia 
/ 16 
417 
/ 18 
/ 120 
/ 130 
/ 140 
/ 160 
/ 170 
/ 180 
401 <BINARY STRING> tim <BINARY CHARACTER? 430 
/ <BINARY STRING> <BINARY CHARACTER> 401 430 
402 <QUATERNARY CODE> sts 2 
/ 20 
/ 24 
/ 26 
/ 28 


403 <QUATERNARY STRING 


40 


& 


<OCTAL CUDE> tie 3 
/ 
/ 
/ 
405 <QCTAL STRING> 318 


406 <HEXAVECIMAL CODE> 


407 <HEXAVECIMAL STRIN 


408 <gCk CODE> t= «EM 
/ 6 

/6 

409 <BCk STRING> tte « 
/ 

410 <ASCII COQODE> sta 7 
/ 

411 <ASCIL STRING> t32 
412 <eBCOIC CUDE> tte 


413 «EyCDIC STRING> 38 
414 <gOOLEAN SECONDARY 


415 <FIELO VALUE LIST? 


416 “<CHARACTER> tt «§ 
/ 
/ 

417 <pELIMITER> 338 <8 
f 
t 
/ 
/ 

418 <ARITHMETIC INTRIN 
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4 240 
f 260 
/ 280 
> §f8 <QUATERNARY CHARACTER? 


f QUATERNARY STRING> <QUATERNARY CHARACTER? 


30 

36 

360 

<QCTAL CHARACTER> . 

/ sOCTAL STRING» <OCTAL CHARACTER> 
tta 4 

/ 40 
G> tte <HEXADECIMAL CHARACTER> 
/ <HEXADECIMAL STRING? 
<HEXADECIMAL CHARACTER> 

PTY> 


0 
QUOTE> 
<BCL CHARACTER> 


~ i ee 


<BCL STRING> <BCL CHARACTER? 


70 
<BCL STRING> 
& 
/ 80 
a <BCL STRING> 
> £88 <BOOLEAN PRIMARY? 
/ NOT <BOOQLEAN PRIMARY? 
tte <FIELD VALUE> 
/ <FIELO VALUE LIST> » <FIELD VALUE 
TRING CHARACTER> 
<STRING BRACKET CHARACTER> 
<INVALIO CHARACTER> 
RACKET> 
<OECLARATOR> 
<OPERATOR> 
<SEPARATOR> 
<SPECIFICATOR> 
SIC> si ABS 


C- 


431 
403 


432 
405 


433 
407 
433 

64 


464 
43a 


09 


409 


31 


431 


432 


434 


436 
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/ BOOLEAN 
/ DABS 
/ DECIMAL 
/ DINTEGER 
/ DMAX 
/ OMIN 
/ DNABS 
/ DOUBLE 
/ OSCALELEFT 
/ DUPLICATE 
/ ENTIER 
/ EVAL 
/ EXCHANGE 
/ FIRSTONE 
/ FIRSTWORD 
/ INTEGER 
/ LISTLOOKUP 
/ MASKSEARCH 
/ MAX 
7 MIN 
/ MYSELF 
/ NABS 
/ NAME 
/ NORMALIZE 
/ OCRX 
/ ONES 
/ REAL 
/ SCALELEFT 
7 SCALERIGHT 
/ SCALERIGHTF 
/ SCALERIGHTT 
/ SCANIN 
/ SECONDWORD 
/ SIZE 
/ STUFF 
/ XSIGN 

419 <BOOLEAN INTRINSIC> tee AVAILABLE 

/ BUSY 

¢ HAPPENED 

/ OVERFLOW 

/ TOGGLE 


420 


421 


422 


423 


424 


425 


426 


427 


428 
429 


430 
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/ UNLOCK 
<PUINTER PARAMETERS> it2 <ARRAY PaRT> 
7 <ARRAY PART> » <CHAKACTER SIZE> 
<UNSIGNED INTEGER LIST> 828 <ARITHMETIC EXPRESSION> 
7 <ARITHMETIC EXPRESSIUN> » 
<UNSIGNED INTEGER LIST> 
<SPECIAL CHARACTER> ti2 . 


~~ NN ON NSN NON NN NON 


~~ 
*_ © 


/ 
SARRAY IDENTIFIER LIST> tte <ARRAY IDENTIFIER? 
¢ <ARRAY IDENTIFIER LIST> » 
<ARRAY IDENTIFIER> 
<BOUNU SPECIFIER> t28 * 
/ <BOUND SPECIFIER> » * 
<AKITHMETIC FUNCTION DESIGNATOR> 22 <FUNCTION DESIGNATOR? 
/ <ARITRMETIC INTRINSIC? 

“LEFT BIT*TO> tre <ARTTHMETIC EXPRESSION? 
<NUMBER OF BITS> %3@ <ARITHMETIC EXPRESSIOND 
<LEFT BAT®FROM> tt2 <ARITHMETIC EXPRESSION? 
<UCTAL UDIGIT> tie 9 

/ 


~ NN NN NON 
oO wf whe 


<BINARY CHARACTER> ttm Q 


C- 33 


44g 
444 445 
97 
9? 
421 


353 


148 
423 
148 


424 
69 
418 
97 
97 
97 


431 <QUATERNARY CHARACTER> 


APPENDIX C. 


fii 


432 <QOCTAL CHARACTER> tt 0 


433° <HEXALECIMAL CHARACTER> 


~~ NN ON ON ON 
yu oO UW F&F WwW YY 


ite 0 


4/1 
/2 
/ 3 


it2 0 


~ NN NN NN NN NN ON ON ON 


/ 
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434 <BCL CHARACTER> tt <STRING CHARACTERD> 

435 <HOOLEAN PRIMARY> tt <LOGICAL VALUE> 
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